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4054-Based System 
Eases Control Panel Design 



by Terry Davis 

TEKniques Staff 

“One picture is worth more than ten 
thousand words,” says the old proverb. 
And nowhere is this more true than in 
the communication of technical informa- 
tion. This is the driving force behind the 
growth of computer graphics. It is also 
the heart of an interesting application in 
the picturesque lakeshore town of Escan- 
aba, Michigan. 

There, at Interactive Graphic Controls 
Company, desktop computer graphics 
are being used to generate color graphic 
display or control panels and highly de- 
tailed training materials for use in com- 
plex process control environments. A 
TEKTRONIX 4054 Graphic Computing 
System with Dynamic Graphics is con- 
nected to four peripherals — a TEK- 
TRONIX 4907 File Manager (three 
disks), a backlit Talos Graphic Tablet, a 
CalComp 1051 36" four-pen Drum Plot- 
ter, and an NEC Spin writer for printout. 

The system is primarily used to prepare 
master drawings for the graphic panels 
and training materials. An added benefit 
is found in processing office work with the 
text processing capabilities of the Editor 
ROM Pack, and software developed for 
such things as accounting and invoicing. 
Then he put the system to work performing 
Computer-Aided Design, with a slant to 
instantaneous communication. 

Richard Growden, a registered P.E. in 
Michigan with 21 years of engineering 
and production management experience 
in the paper industry, started the busi- 
ness 8 years ago as a consulting engi- 
neering firm. “Actually,” Dick says 
“much more interest developed in the 
Graphic Panels and training materials (ie: 
slides, overheads, drawings, and full co- 
lor printed matter) than in small engi- 
neering projects. The Graphic Panels and 
the training materials are highly special- 
ized products that can be much more 
efficiently produced by a small company 
than by the large engineering firms uti- 
lized on major projects. These products 
are complimentary to each other in that 
either one may be produced by using the 
other as a guide. And when both types 



are ordered on a project, there is added 
economic value.” 

The business was renamed INTERAC- 
TIVE GRAPHIC CONTROLS to better 
describe the products and services being 
offered. The decision to install a compu- 
ter graphics system to increase 
productivity and shorten delivery times 
was made when a self-contained, high re- 
solution, graphic computer system that 
could support other types of equipment 
needed to produce the drawings required 
became economically available for small 
businesses. 



The graphic display panels are color-cod- 
ed, illuminated representations of pro- 
cess control systems (Fig. 1). They are 




Fig. 1 . At Mead Paper Co. in Escanaba, MI., the 
Bark Boiler panel is 36” x 42”. It displays 38 
pilot lights and 10 meters, in addition to 3 push- 
buttons, 6 selector switches, and 6 rheostats. 

playing important parts in the operation 
of large process plants, such as the paper 
mills that Dick Growdon knows so well. 
But the same panel principles are valu- 
able in any process control operation, 
from paper mills to nuclear or coal-fired 
power plants. The idea is to create easy- 
to-read panels that are graphic represen- 
tations of major systems in the plant — 
processing fluids, for instance. The color 
coding separates different fluids, or sys- 
tem process lines, for quick identification 
and ease of following a line or process. 

Panel Design 

The heart of the design system is the 
4054. Its high-resolution 19" display al- 
lows precise screen previewing of the 
graphic panel layouts. The display, and 
the local processing, enables a detailed 
graphic representation of panel layouts, 
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so they can be perfected on the screen 
before plotting and production. 

The creation process is a reversal of usu- 
al Computer-Aided Drafting (CAD) tech- 
niques. Where CAD typically generates 
finished working drawings, Dick 
Growdon starts with the working draw- 
ings for the plant that he’s designing pan- 
els for. Copies of the plant construction 
drawings and instrumentation drawings 
are used as input to the panel design pro- 
cess. By digitizing the working drawings 
into the system, the finished panels be- 
come representations of the actual pro- 
cess system. This greatly improves 
understanding of the control panel when 
compared to rows of instruments and 
alarm areas with lots of lighted message 
boxes. 

Lines of varying width can be created, in 
proportion to the line’s importance to the 
system, or its carrying capacity (actual 
pipe size). Multiple fluid lines are color 
coded for easy separation; hidden line 
crossovers are used (Fig. 2). Standard 




Fig. 2. Plots from the CalComp 1051 serve as art- 
work masters for the graphic panels. 

components can be selected from a disk- 
based file of pumps, valves, and switch- 
es, and positioned in the drawing as de- 
sired. Special parts representations can 
be easily created. 

Once input, the graphic layout can be 
adjusted on the 4054 display if necessary 
before it is plotted on the Calcomp 1051 
Plotter. The output of the plotter is a 
very high resolution black and white po- 
sitive drawing of the control panel dis- 
play. This then becomes the master art- 
work for a photographic reproduction 
process. Photographed and reproduced 
as a 7 mil film negative, the heart of the 
final product is almost complete. Keyed 
color films are added to the back of the 
negative, and the colored print is sand- 
wiched between two layers of plastic. 



The top layer is a hard, scratch-resistant 
plastic, while the backing layer is of 
flame-resistant polycarbonate Fig. 3). 




Fig. 3. This panel is in the pulp mill digester house 
at Great Southern Paper Co. in Cedar Springs, GA. 
It is 19” x 43” , not including the crt display, and 
contains 342 lights. 

The panel is completed by framing and 
adding lights. (Framing is often made to 
fit into the plant control consoles.) The 
end result in a process control plant is a 
set of color-keyed panels that represent 
the systems monitored by the plant con- 
trol console (Fig. 4). They are very useful 




Fig. 4. At the Mead paperboard plant in Stevenson, 
ALA., the power and recovery room houses seven 
panels for a total length of 45 feet. These are static 
back-lighted displays. 

during new employee orientation, as a 
refresher for vacation replacements in an 
area, or when promotions move people to 
new jobs. Some installations use simpli- 
fied graphics to give visitors an easy-to- 
understand overview of a plant’s entire 
operation. 

Indicator lights are routinely added to 
the panels, for quick identification of a 
problem in the plant. When a panel light 
comes on, it’s immediately next to the 
sensed problem area on the panel. And 
the panel represents, to approximate 
scale if possible, the actual plant layout, 
making location of the actual problem a 
snap. 

Besides normal back illumination, and 
the installation of status indicator lights 
for control room panels, displays can be 
set up for special functions as well. Indi- 
cator lights can be complemented with 
switches or emergency controls, for in- 
stance. Or gauges for detailed readout 



can be mounted directly on the panels, 
next to the indicator light that signals a 
problem in the area monitored by the 
gauge. (See Fig. 5.) 




Fig. 5. At a Mead Paper Co. bleach plant, this 
19” x 38” panel houses 17 meters and 17 push- 
buttons, built into the illuminated graphic panel. 



With panels like these, the location of a 
problem in the plant systems can be pin- 
pointed almost as quickly as it occurs. 
No grids or messages to read and decode 
to find a physical location. “The map- 
like layout is the key to understanding,” 
says Growdon. “Messages and grids 
take time to decode, and time is precious 
in a problem situation.” 

Similar panels can be created by manual 
means, drawn on a drafting table and fin- 
ished with tape and press-down symbols. 
But there are a number of reasons for 
choosing the 4054-based system; certain- 
ly speed, simplicity, and ease of use are 
high on the list. Consistent representa- 
on of parts is another reason, as the 
omputer always generates the same 
rawing of a part. Yet the system is ver- 
satile enough to allow special parts de- 
sign as needed. But perhaps the top rea- 
son is productivity. Interactive Graphic 
Controls is now able to accept very large 
jobs due to reduced lead times in meet- 
ing deliveries. This factor is important 
since final drawings are often unavailable 
until shortly before training programs are 
starting or production facilities begin. 
With the 4054, it is possible to do all of 
the design and office work with only one 
person, Dick Growdon, before calling for 
outside help to assemble panels. JgjD 
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4051 Graphics Play Inter gral Part in 
Health Services Research and Planning 




At West Virginia University Bill Detweiler (left) and Ed Bosanac (right) have instituted computer graph- 
ics to aid in health systems planning and development. 



by Edward M. Bosanac, 

Dr. PH 

and William Detweiler, 

Research Assistant 
School of Medicine 
Department of Community 
Medicine 

West Virginia University 
Morgantown, W.V. 

The Office of Health Services Research 
(OHSR) provides health systems plan- 
ning and data systems development. It is 
part of the Department of Community 
Medicine at West Virginia University in 
Morgantown. Although part of the Uni- 
versity, we function very much like a 
public consulting firm. 

For instance, the State of West Virginia 
has a hiring freeze. By contracting with 
OHSR, they may maintain control of a 
substantial part of the work without hav- 
ing the fiscal exposure of permanent 
staff. Many state agencies are not geared 
toward new development. While expert 
at maintaining and operating programs, 
new development is not one of their pur- 
suits. Thus, they will contract with 



OHSR. And since OHSR is in the uni- 
versity setting, we have access to profes- 
sionals, large systems, general planning 
methods and software development that 
would be outside of the individual agen- 
cy’s realm. 

OHSR staff consists of two assistant pro- 
fessors, four other professional staff and 
five technicians. In the course of our 
work for others, we are at the same time 
committed to improving the statistical, 
analytical, and information processing 
capabilities of our health care research- 
ers and planners. One of these areas is 
the way data is represented. 

Computer Graphics Bypass Illustration 
Problems 

It is OHSR’s belief that graphic illustra- 
tions are an effective and often essential 
complement to tabular displays or verbal 
discussions of data. Charts and graphs 
provide the reader with “a point of 
view” that may have otherwise been dif- 
ficult to obtain. These aids spare the 
reader the effort of mentally visualizing 
the data. In addition, maps of various 
kinds reveal the geographic distributions 
of resources and events. There is no sub- 



stitute for a well designed map when 
conveying to the reader the idea of spa- 
tial trends. 



Several adjectives characterize the value 
of graphic displays: 

RAPID — trends in the data may be re- 
cognized at a glance; 

FORCEFUL — they provide more em- 
phasis than text or tables; 
CONVINCING — specific points of 
interest may be clearly demonstrated; 
REVEALING — relationships that may 
have otherwise gone unnoticed may be 
discovered; and 

ATTRACTIVE — they offer a visual 
change of pace to text and tables. 



Although graphics help those who pub- 
lish data understand and communicate 
their findings more effectively, the me- 
chanics of producing and revising an illu- 
stration is time consuming. Also, carto- 
graphic design requires specialized 
technical and statistical skills that may 
not be available to certain organizations. 
The staff at OHSR views computer 
graphics as a means of bypassing many 
of these problems. This is why an invest- 
ment has been made in developing a sys- 
tem for producing charts, graphs, and 
maps. 




Although development of the system 
continues, it is fully operational and is 
used on a daily basis. The system’s de- 
sign and operation enables any of the 
professional and clerical staff to produce 
a graphic display in just a few minutes. 



The office’s graphic system operates on 
several different computers. That is, the 
computational and graphics workloads 
are distributed among large mainframe 
computers and OHSR’s Tektronix 4051 
desktop graphic system. This configura- 
tion allows for interactive processing on 
both the mainframes and the 4051, batch 
submission of jobs on the large systems, 
and transfer of data between any of the 
machines. The use of more than one 
computer offers the user a wider range 
of programming options. When heavy J 
computational power is required, the 
task is delegated to the mainframe. On 
the other hand the 4051 is used for lesser 
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tasks, eliminating the constraints of job 
management and downtime associated 
with the large system. 

The 4051 desktop computer system per- 
forms data analysis and graphic manipu- 
lations on a stand-alone basis within the 
office. Moreover, because it’s equipped 
with the RS-232 communications option, 
the 4051 serves as an intelligent terminal 
sharing data with the host computer. 

One of the system’s most essential peri- 
pherals is the 4662 Digital Plotter. The 
Plotter is not only able to accept com- 
mands from the 4051, but also from a 
host computer at another location. When 
operating in this manner there is no de- 
lay in having mainframe-generated graph- 
ics in hand since plots are not bound for 
output at the distant facility. In addition 
to the 4662’ s plotting capabilities, it is al- 
so used to digitize maps or drawings 
under the control of the 4051 or another 
computer. 

We also have a 4907 File Manager with 
three flexible disk drives, and a Hard 
Copy Unit. 

Various CRT and hard copy terminals 
are used at OHSR for submission of jobs 
to the host site. However, office person- 
nel mostly favor our Tektronix 4025 for 
this task. Its capabilities for graphic dis- 
play, text editing, and internal storage of 
information, and text editing make time 
online more productive. 

OHSR is an affiliate of the West Virginia 
Network for Educational Telecomputing 
(WVNET). Through this organization ac- 
cess is provided to an ITEL AS/5 and an 
AMDAHL 470 V7/A. A ZETA drum 
plotter is available at the host site for 
large multicolor plots. 

However OHSR has emphasized the 
stand-alone system, i.e., the 4051, in or- 
der that final form plots may be pro- 
duced in a matter of minutes. It takes at 
least a working day to get a plot from 
the host site. The 4051 has the additional 
advantage of minimizing production 
costs. The current plotting charge by the 
network is $50 per hour. 

The 4051 software library includes pro- 
grams which we develop for the 
production of maps and special purpose 
graphs — such as population pyramids. 
We also rely on a multitude of programs 
obtained from the Applications Library. 
Our analytical library includes PLOT 50 
Mathematics Library, PLOT 50 Statistics 
Library, PLOT 50 Business Planning and 
Analysis Vol. 1, PLOT 50 Graph Plot, 



and the newest PLOT 50 Statistics Disk- 
based Tests and Distributions. 

The large system software consists of an 
extensive library maintained by 
WVNET. OHSR relies on these pro- 
grams when specialized processing is re- 
quired on large amounts of data. How- 
ever some of these programs have been 
generalized and run on the 4051. 

Computer Cartography Major Focus 

Computer cartography, both on the 4051 
and the larger systems, has been our 
major focus. We have several geographic 
base data files: 

DIMECO — Dual Independent Map En- 
coding (county). This file was created by 
the U.S. Bureau of the Census and con- 
tains the boundary information for West 
Virginia’s 55 counties. 

MCD — Minor Civil Divisions. These 
are the largest subcounty administrative 
units used by the Bureau of the Census 
for a variety of tabulations. These are of- 
ten townships or magisterial districts. 
There are 353 MCDs in West Virginia. 

STAM — Statewide Traffic Assignment 
Model. The 781 statewide traffic zones in 
West Virginia are represented in this file. 
The zonal system was created by the 
State Department of Highways. Each 
zone is a functional unit based on exist- 
ing traffic patterns, travel time, popula- 
tion, and natural boundaries. 

HSR — Health Service Regions. The 37 
health service regions in West Virginia 
were delineated by OHSR as part of a 
study of health care delivery patterns in 
the State. 

TRAVEL TIME — This file is under de- 
velopment. It will allow travel time iso- 
chrons to be drawn about any location in 
West Virginia. 

Two other files are currently under de- 
velopment: GBF/DIME — Standard 
Metropolitan Statistical Area DIME files, 
and ENUMERATION DISTRICT CEN- 
TROIDS. 

The entire staff is versed in the use of 
OBS-WYLBUR and SAS. WYLBUR is 
a comprehensive system for manipulating 
text and for remote entry and retrieval of 
computer jobs. We enter our data on the 
4051 and save it on the 4907 disk. At an 
opportune time we feed the data to 
WYLBUR and store it on the host disk. 

SAS (acronym for the Statistical Analy- 
sis System and distributed and main- 
tained by the SAS Institute) is used for 



data base management and summariza- 
tion of large files. The output is often 
downloaded to the 4051 for charts and 
graphs. 

POLYVERT, Harvard’s Polygon 
Converter Program is the backbone of all 
of OHSR’ s geographic base files. This 
system allows us to input any file, such 
as the DIMECO, the CIA’s World Data 
Bank of Countries, or user prepared geo- 
graphic boundary files. These files are 
restructured to a format more suitable 
for plotting and POLYVRT also handles 
the filtering of detail. For instance, we 
can pull off the West Virginia portion of 
DIMECO and generalize the detail level 
of the file, reducing the number of points 
in the polygon so computations aren’t so 
monumental. 

We bring census and vital records data 
in from the host to the 4051 in tape com- 
munications mode, then ship it to the 
disk. To classify the data for mapping we 
took a class intervals program from one 
of the geography journals and adapted it 
for the 4051. Using this program we can 
group data by equal frequencies, or 
equal steps, geometric and arithmetic 
mean, nested mean and so on. 
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Fig. 1. (a) A sorting program classifies data by 
equal frequencies 
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Fig. 1(b). A sorting program classifies data by 
equal steps 



To put these files together, we took the 
shade routine published in TEKniques 
(Vol. 3 No. 1, “Shading Routine for 
Complex Shapes”), built a front end for 
the data, coded a routine to read the 
map and boundary file and another rou- 
tine to handle the intervals, titles, and 
legends. We are now able to produce 
value maps, shade maps or three-dimen- 
sional maps through the 4051. The user 
has the option of using color rather than 
line patterns for shading. The output is 
invaluable. 

For example, we graphed the spatial 
characteristics of the birth data in Fig. 
2a. Notice the higher rates in the south- 
ern portion of the state. At this point the 
health services planner would take a clo- 
ser look by getting a value map and 
looking at specific values (Fig. 2b). You 
simply wouldn’t be able to easily pick up 
this information from tabular data. 

In another application, we did a study of 
the prevalence of hypertension. When 
we graphed these estimates, we noticed 
that a higher proportion of the popula- 
tion from the central part of the state 
seemed to be at risk. You’d never pick 
that up in a table. At this point, other 
professionals could come in, look at their 
maps and immediately relate the hyper- 
tension locations to circumstances with 
which they are familiar, such as, socioe- 
conomic data or population geography of 
the state. 

We can rotate our three-dimensional 
maps. This allows relationships that may 
be obscured to be revealed by turning 
the map so many degrees. 




Fig. 2a. From this map, the higher birth rate in the southern part of the state is immediately apparent. 




Fig. 2b. A value map translates the shaded map into hard figures. 




Fig. 3a. A three-dimensional data map links sta- the previously obscurred data magnitude in the 
tistics to locale. north end of the state. 
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To produce the charts and graphs we 
needed, we modified an Applications Li- 
brary program by adding a routine to 
produce logarithmic axes. The additional 
code overloaded memory so we divided 
it into three overlays. Our efforts paid 
off, however, in that we are now able to 
graphically compare transient data of dif- 
ferent orders of magnitude. For example, 
it is difficult to relate rates of change in 
the number of U.S. medical school 
graduates with the number of U.S. medi- 
cal schools (Fig. 4). By plotting these 
two sets of data on a logarithmic scale 
graph, we get a more precise picture of 
what the data really show. 

The ability to change source code to fit 
our needs is one of the great benefits of 
the 405 1 . If we were operating strictly on 
a host, it would have been out of the 
question to manipulate the source code 
to tailor the graph for our purposes. 

Several enhancements to our graphing 
system facilitate its use. Our technician, 
Powsiri Klinkhachorn, built a piece of 
hardware which allows us to transfer 
communication from 4025 to 4051 by the 
flip of a switch. This permits use of the 
4662 with the 4025 online and, alternate- 
ly, by simply pressing the switch, the 
4662 with the 4051 online. 

We will have the same sort of switching 
mechanism for our printer. Thus we’ll 
have 4051 listings, or host listings 
through the 4025, by the flip of a switch. 

4051 Streamlines Operations 

The extra power of SAS for data man- 
agement combined with the graphics of 
the 4051 has greatly relieved our staff. 
Before this system was in place, we cut 
press-on shading to highlight our maps. 
We had masters level people cutting and 
pasting on maps! With, the 4051, every- 
one is getting their maps in a tenth of the 
time. The charts are more consistant, 
too. 

Planners and researchers used to be 
afraid to ask for graphs and maps be- 
cause they took so much time. We 
showed our system to them, and now 
they’re asking for all kinds of things. 

Another real advantage to the 405 1 is our 
ability to keep working even though the 
host goes down. If the main system is 
down and we can’t get a map from it, we 
can always turn to the 4051. 

Before we took possession of our 4051, 
we (Dr. Ed Bosanac and Mr. Doug Not- 
tingham, Research Associate) were 



charged with developing a presentation 
for the Charleston Area Medical Center’s 
Residency Retreat. We had to graphical- 
ly present the history and predicted fu- 
ture of eight selected medical specialties. 
We got the 4051 in at 2:00 in the after- 
noon along with a copy of Data Graphing 
(4050 Applications Library program # 
51/00-9523/0). Doug and I were both famil- 
iar with the host so we started to write 
programs to display the data. After we 
wasted a few hours on that, we decided 
to plug in Data Graphing to see what 
would happen. We were delighted. It’s 



tutorial nature and the friendliness of the 
4051 led us through the graphing and we 
were immediately on our way. We 
worked all night and the report was com- 
pleted the next morning, a 101 page vol- 
ume of graphics ! 

The result of the work of the health sys- 
tem planners and researchers at OHSR 
guides the expenditure of tens of millions 
of dollars. And the 4051 plays an 
extremely heavy role. JgjD 
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Fig. 4. Values of different orders of magnitude are easily compared using a program which overlays 
three graphs. 




Fig. 5. Although a statewide three-dimensional value map is now available, a future project will seg- 
ment it by jurisdictional polygons. 
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An Application of the PLOT 50 Gauss-Newton 
Non-Linear Regression Program in Physical 
Chemistry 




At the University of Wisconsin-Oshkosh Dr. Gilbert Pollnow and student Marcus Raab measure vapor 
pressure with a typical mercury manometer. Minimizing the fixed absolute error inherent in readings 
from a mercury manometer (or the relative error in readings from a calibrated gauge) is easily handled by 
the Gauss-Newton program in PLOT 50 Statistics Vol. 4. Dr. Pollnow explains the procedure in the 
following article. 



Gilbert F. Pollnow, Ph.D. 
Department of Chemistry 
University of Wisconsin-Oshkosh 
Oshkosh, Wis. 

Frequently, the two-constant thermody- 
namically derived Clausius-Clapeyron 
equation (2) is used to fit vapor pressure 
data over small temperature ranges, de- 
spite the fact that it does not take into 
account the decrease in the heat of va- 
porization with the increase in tempera- 
ture: 

Log 10 Pi = Q + C 2 /Ti (2) 

More satisfactory equations include the 
empirical and widely used Antoine equa- 
tion (3): 

Log 10 Pi = Ci + cy(Q+ ti) 0) 

and the so-called modified Kirchoff 
equation (4) which assumes a quadratic 
decrease in the heat of vaporization with 
temperature 1 : 

LogioPi ~ Ci + C 2 /Ti + C 3 Log 10 Ti + 
C 4 Ti (4) 

In vapor pressure measurements, usually 
the temperature f or Ti (degrees Centi- 
grade or Kelvin, respectively) is directly 



controlled as the independent variable 
with a known error, the pressure, P i? be- 
ing the dependent variable. Pressures 
measured with a typical mercury ma- 
nometer have a fixed absolute error, 
e.g., ±0.01 mm Hg, whereas if a cali- 
brated gauge is used, the error is usually 
a fixed percentage of the scale reading, 
e.g., 0.1%. 

Clearly, the regression procedure should 
be chosen to minimize either the abso- 
lute or relative deviations depending on 
the method of experimental measure- 
ment. However, minimizing the absolute 
deviations in the pressures requires that 
the above equations be expressed in 
their exponential forms which are non- 
( linear in the constants Q, C 2 , C 3 , and 
C 4 . In the event the pressure measure- 
ments have a fixed relative error and the 
errors are small, the least squares condi- 
tion can be approximated as follows: 

S =2((P i0 - P ic )/Pic f = 2((d PiVPi) 2 = 
2(d In Pi) 2 = Minimum = 

2.303 2 (d LogioPi) 2 = 

2.303 2 (Log P i0 — Log 10 Pic f (5) 

Thus, minimizing the deviations in the 
logarithms of the pressures is for most 
practical purposes equivalent to minimiz- 



ing the relative deviations in the pres- 
sures. Both problems are easily handled 
by the Gauss-Newton program #2 on the 
Statistics Volume 4 Tape. 

In using the Gauss-Newton program, 
however, it is important to recognize 
that the input coordinates, , Y* must 
be in the form specified in the user’s 
subroutine since they cannot be trans- 
formed within the Gauss-Newton Pro- 
gram. Thus, if the relative deviations are 
to be minimized, the actual logarithms of 
the pressures must be input as the Yi. 
Also, the user must provide starting val- 
ues for the constants which for the pres- 
ent case can be conveniently calculated 
from equation (2) using the conjugate 
coordinate extremes to determine Ci and 
Q. C 3 and C 4 can be set to zero, initial- 
ly. 

The following figures show the modified 
Kirchoff subroutines required and the 
graphical output with the constants su- 
perimposed via the editing keys, using 
data for trimethylamine 2 . The figures 
have all been labeled to be self-explana- 
tory and unambiguous, except for the 
standard deviations which are in terms of 
the Y coordinates used by the program; 
hence, when the relative deviations are 
minimized the standard deviation is in 
terms of the Logi 0 Pi. 

In addition to the PLOT 50 references 
noted in the Statistics package, users 
may find the author’s earlier article on 
this subject of some value since it shows 
in more detail how the derivatives enter 
a similar regression procedure. 3 Jgj[) 
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be very valuable for fitting polynomials which 
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TERMINATION AFTER 4 ITERATIONS. 

FINAL SUM OF SQUARES * 0 . 003 1 5662065504 
DF « 12 

SIGMA = 0. 0162188692964 



J PARAMETER ERROR 



1 

2 

3 

4 



37.5416855698 
-2160. 18044601 
-11.7459972148 
0.00665347919572 



0. 869413214694 
19.8023992557 
0.361990590347 
3. 1 1 3638332E-4 



DO YOU WANT TO SEE THE INUERSE MATRIX: NO 



DO YOU WANT THE PARTIAL CORRELATION MATRIX PRINTED: NO 



***DONE*** ing VALUES FOR C<1> AND C<2> WERE: 7.74788 >"1343 . 45 
GAUSS-NEWTON FIT TO EXPONENTIAL FORM OF KIRCHOFF EQUATION 



DATA FOR TRIMETHYLAMIHE (ASTON, J. G., ET§AL, J. AM. CHEM. SOC. 
66, 1174 <1944) 




TERMINATION AFTER 3 ITERATIONS. 

FINAL SUM OF SQUARES = 4 . 9 1 56 1 6909E-8 
DF = 12 

SIGMA = 6. 400270834E-5 



J PARAMETER ERROR 



1 

2 

3 

4 



35.749326111 

-2121.29073343 

-10.9920072355 

0.00596868750938 



0.520661233275 
11.0471896246 
0.2201 14670567 
2. 053730342E-4 



DO YOU WANT TO SEE THE INUERSE MATRIX*. HO 



DO YOU WANT THE PARTIAL CORRELATION MATRIX PRINTED: NO 
***DOHE*** 

STARTING UALUES FOR C<1> AND C<2> WERE: 7.74788, -1343.45 
GAUSS-NEWTON FIT TO LOGARITHMIC FORM OF KIRCHOFF EQUATION 

DATA FOR TRIMETHYLAMIHE (ASTON, J. G., ET AL, J. AM. CHEM. SOC. 
66, 1174 (1944) 




Why Heats of Vaporization 



All liquids (and solids at temperatures 
above absolute zero) spontaneously tend 
to evaporate as a result of the distribu- 
tion of the kinetic energies of their 
molecules or atoms, i.e., to pass from 
the condensed state to the gaseous or va- 
por state. In a closed contained, where 
the vapor cannot escape, the liquid will 
come to co-exist in a dynamic equilibri- 
um with its own vapor. The pressure ex- 
erted on the walls of the container by the 
gaseous component is called the vapor 
pressure and is the pressure at which no 
further net evaporation of the liquid will 
occur. 

The vapor pressure is dependent upon 
the temperature of the liquid; as it in- 
creases, the vapor pressure and the rate 
of evaporation also increase. Measuring 
the vapor pressure of pure substances as 
a function of temperature suffices to de- 
termine the heat of vaporization through 
the Clapeyron equation (1) below and 
which is derived in most physical chem- 
istry texts: 

AH V = T(dP/dT)(V v - VO (1) 

Thus, the molar heat of vaporization, 
AH V , at any temperature, T, can be 
computed from the derivative of the fit- 
ted vapor pressure equation and the mo- 
lar volumes of the vapor, V v , and the liq- 
uid, Vi, at the same temperature. The 
so-called Clausius-Clapeyron equation (2) 
results from the integration of equation 
(1) assuming the vapor to be ideal, V v 
>> Vi, and that AH V is independent of 
temperature. 

Heats of vaporization are very important 
in such industrial applications as refriger- 
ation machines, internal combustion and 
steam engines, chemical drying 
processes, and others. 
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London Firm Develops Engineering 
Design Programs for 4050- Series 



At Engineering Sciences Data Unit (ES- 
DU) in London, England, qualified engi- 
neering staff produce evaluated design 
data for structural, aeronautical, me- 
chanical and chemical engineers. Much 
of the work is painstaking, involving 
hundreds of time-consuming calculations; 
just the kind of thing for a computer ap- 
plication. But which computer, and 
which program? 

Chris King is ESDU’s Head of Mathe- 
matical Services and Computer Products, 
and he explained the way these and oth- 
er questions were answered by building 
up a 4050 system. “In the mid 1970’s we 
were spending a great deal of money 
with computer bureaus on such routine 
jobs as fitting a curve to a set of data 
points,” he said. “It was the kind of 
thing that seemed ideal for a desk-top 
computer. ’ ’ 

In 1974 ESDU had a look at the market, 
and after a three month survey they 
bought a Tektronix 4051. 

“We were impressed with the system’s 
graphics facilities,” said King, “plus the 
fact that Tektronix had a lot of math 
software to back things up. Shortly after 
our initial purchase, we bought a 4662 
Plotter, which was an instant success.” 

Since that time, ESDU has built the sys- 
tem by purchasing the 4052, the 4631 
Hard Copy Unit and the 4907 File Man- 
ager. Working a steady 8-9 hours a day, 
five days a week, the ESDU installation 
deals with many thousands of individual 
calculations, producing for example, 
curves to help produce the company’s 
Data Items . 

These are sets of verified data, produced 
in a form that is suitable for direct use 
by a practicing design engineer who can, 
with complete confidence, take his or 
her desired data straight from the graphs 
which ESDU produce. A typical applica- 
tion is an aircraft noise project in which 
data from several microphones must be 
assembled and compared simultaneously. 

“A COMpac is an interactive program 
for use on the 4050 Series systems. 
Based on the evaluated data in existing 
Data Items, each COMpac, together with 
its user documentation and related basis 



material is designed for professionally 
qualified users. However, it requires no 
special computer knowledge, since com- 
munication back and forth is in plain En- 
glish. 

According to King, the availability of the 
powerful small computer with graphics 
facilities and the continuing lowering of 
costs of this equipment have opened up 
many new applications of high speed 
computation to engineering design and 
analysis. 

“Using their Tektronix-based COM- 
pacs,” he said, “engineers can make de- 
cisions as a program is executing, reduc- 
ing the need to guess, with inadequate 
information, values of parameters that 
depend on engineering judgement. This 
guesswork is needed too with batch pro- 
cessing to avoid having to run the pro- 
gram several times.” 

Print-out and graphic display of inter- 
mediate results not only aid users at the 
various intermediate decision points but 
also make them more familiar with the 
technical background of the program and 
give them more confidence in it. 

ESDU’s COMpacs programs are 
designed to return control to the user 
from time to time, enabling him or her to 
apply (and further develop) engineering 
judgement. 

“This also lets users leave the program 
for as long as they wish to seek the ad- 
vice of colleagues on specific issues,” 
said King. “In addition, these features 
make it easier to experiment with the ef- 
fects of varying one or more design par- 
ameters, thus giving scope to exercise 
the art as well as the science of design.” 

COMpacs currently available are: 

No. 1018: The buckling of plates, 
clamped edges. 

No. 1010: The buckling of plates, 
two edges clamped and 
two edges simply support- 
ed. 

No. 1011: Buckling of plates, edges 
simply supported. 

No. 1013: Stresses and deflections in 
flat rectangular plates un- 
der normal pressure. 



No. 6015: Aerodynamic center of 
wing-fuselage combina- 
tions. 

No. 7004: Fatigue damage estimation 

under variable amplitude 
loading. 

No. 8018: Pressure change in the 
flow of two-phase mix- 
tures. 



A program of development to produce 
more COMpacs is under way at ESDU. 
Meanwhile, the company has produced a 
COMpac demonstration program. This is 
designed not only to show how a COM- 
pac works, but also highlights salient fea- 
tures of the Tektronix 4050 Series com- 
puters (16K or bigger versions) and 
associated peripherals. 

EDSU’s address is: 



251-259 Regent Street London 
WIR 7 AD England 
Telephone 01-437 4894 

Their U.S. address is: 

Suite 1037 

733 15th Street N.W. 
Washington, DC 20005 
Telephone (202) 638-0055 







Note: As a service, TEKniques may publish no- 
tices of software, hardware and services from 
suppliers other than Tektronix. No evaluation 
or endorsement by Tektronix, Inc. of these 
products or services is implied by such publica- 
tion. Tektronix, Inc., expressly disclaims any 
obligation of warranty or support, jg^ 
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INPUT / 
OUTPUT 




Interfacing is an area that generates a lot 
of questions, since there is often a vari- 
ety of equipment involved as well as 
varying user needs. In this issue of TEK- 
niques, two interfacing questions are ad- 
dressed by Howard Sanders, Technical 
Support Speicalist at Tektronix, Wilson- 
ville. 

Multiple RS-232 Hookup via the GPIB 

Can you make more than one RS-232 con- 
nection to a 4050 Graphic Computing Sys- 
tem? 

There are a number of reasons for want- 
ing multiple RS-232 hookup. For in- 
stance, you might want to know if the 
host wants to talk without checking the 
Option 1 buffer for CR characters. If you 
have such a need, there is an answer. 
You can buy one of the many RS-232-to- 
GPIB couplers on the market and hook it 
to the GPIB port on the 4050. 

This not only gives you an extra RS-232 
port, but has the added advantage of as- 
serting SRQ when the host is sending to 
you. Then, if you have ON SRQ set, 
your 4050 will do a GO SUB to the loca- 
tion specified in your ON SRQ state- 
ment, and handle the information from 
the host. Now you can have another pro- 
gram running until the host wants your 
4050’s attention; it will then automatical- 
ly stop and listen to the Host. 



The SRQ feature also works very well if 
you want to collect data from multiple 
sources, when those sources are 
equipped with RS-232 interfaces. The 
RS-232 interfaces can then be hooked to 
the couplers. Then, upon receiving an 
SRQ, the 4050 can simply poll to see 
which device wants attention, then go to 
the subroutine to handle it. In this way 
the 4050 can operate almost like a Host 
computer. 



Secondary Addressing Advantages 

What are the advantages of secondary ad- 
dressing? 

Speedier communication with peripherals 
is an important area that comes to mind. 
For instance, have you ever noticed how 
quickly you can get your 4050 series per- 
ipheral to respond to a command? That’s 
a nice capability that you won’t find on 
many machines, and it’s simple because 
of GPIB secondary addressing. Many 
other machines use long strings or multi- 
ple commands to accomplish one simple 
operation. For example, the 4051 can 
command the plotter to draw with the 
secondary address command “PRINT 
@P,20:X(1),Y(1).’’ Other devices, ones 
that don’t honor secondary addresses, 
might require the command string like 
“PRINT@P,32:“D”,Z(1,1),Z(1 ,2) 



The secondary address is the address 
that follows the primary address for the 
peripheral device. For instance, the com- 
mand “PRINT @1,20:X,Y’’ tells the 
plotter (Primary Address 1) to do a draw 
(Secondary Address 20) to location X,Y. 
Peripherals such as the 4924 Tape Drive, 
the 4662 and 4663 Plotters, and the 4956 
Graphic Tablet will all respond to Secon- 
dary Address commands. In addition to 
peripherals, this command scheme will 
work on the 4050 itself. In this way, using 
a program variable instead of a device 
number, you can easily change the device 
to which your program will output. 

But not all companies use Secondary 
Addressing in their devices, so there is 
often a need to suppress the Secondary 
Address from automatically going out 
over the GPIB. Using a Secondary Ad- 
dress of 32 with an INPUT or PRINT 
statement will suppress Secondary Ad- 
dressing over the GPIB. 
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Catalogs Still Available 

Once again, we’d like to remind you that 
4050 Series Applications Library Cata- 
logs are still available, and free for the 
asking. You should have received yours 
by now, but if you haven’t, or if you 
need additional copies, just drop a line to 
the Applications Library office serving 
you. The addresses are listed at the back 
of each TEKniques issue. 

Looking For Good Tips 

Programming Tips are one of our most 
valued features, according to past sur- 
veys. Readers learn from them, and like 
the sharing of information. And contribu- 
tors take pride in others learning from 
their tip, and get free programs as well. 
Do you have a good Programming Tip, 
or a helpful hint about programming? Let 
us know? We’d love to publish it as a 
Programming Tip or a BASIC Bit. And 
you get any one of 13 programs plus 
Programming Tips from the library for each 
of your published Tips or Bits. Details are 
listed at the end of the BASIC Bits column. 

Don’t Miss Out on Applications 
and Tips 

Are you missing any TEKniques issues? 
Any of the issues from Vol. 4 are avail- 
able by calling or writing the Applica- 
tions Library office serving your area. 
Issues from Vol. 1 - 3 are no longer 
available, but the information has been 
combined into Application Reprints and 
a collection of Programming Tips. The 
following five categories of Application 
Reprints are currently available: 



Engineering and Design AX -4449 

Mapping AX -4460 

Data Acquisition and Analysis AX -4450 
Business Graphing and 
Reporting AX -445 1 

Peripherals and ROM Packs AX-4452 

If you need an article from one of the 
issues in Volumes 1 — 3, one of these 



reprint sets will likely fill your needs. To 
get your set, just contact your local Tek- 
tronix office, or the Applications Library 
serving you. 

The Programming Tips collection com- 
bines 148 tips from the three volumes in- 
to one handbook, with a keyword index 
to help you find what you need. The 
handbook is available through the Appli- 
cations Library. U.S. domestic price is 
$ 10 . 

Need Extra Copies? 

Do you need more than one copy of 
TEKniques on hand, for students, occa- 
sional users, coworkers, or others? Just 
let us know how many you’d like to re- 
ceive at each publication. Call (503) 685- 
3618. 

Applications Library Changes 

The Applications Library will soon be 
changing its software distribution meth- 
ods. The Library has grown to include a 
substantial number of programs, with 
new ones being added all the time. So to 
simplify distribution, and to improve the 
cost-effectiveness for you, the software 
user, the following changes are in the 
works: 

Individual programs presently in the li- 
brary will be grouped into application 
area categories. Programs in the catego- 
ries will then be combined into full tape 
sets, which will then be numbered, to be 
ordered as a set. The programs presently 
in the library will no longer be available 
on an individual basis. New programs 
will be available individually until they 
are included in an update tape, or a new 
volume of tapes. 

Documentation for the programs will al- 
so be incorporated into sets, but will no 
longer include program listings. (List- 
ings, of course, are always available 
from the program tape.) More informa- 
tion will be published in the next issue of 
TEKniques. 



Input/Output — It’s Your 
Column 

The Input/Output column is included in 
the newsletter to answer any questions 
you might have, whether they’re con- 
cerned with the 4050, peripherals, pro- 
gramming, the Library or TEKniques. 
Don’t shy from asking a question. What- 
ever your question might be, let us 
know. We’ll be happy to print your 
question and answer. (And, chances are, 
lots of others have similar questions and 
will benefit as well.) /g) 



12 



Tekniques 
Vol. 5 No. 2 





by Bob Parent 
Tektronix, Inc. 
Wilsonville, OR 
with Patricia Kelley 
TEKniques Staff 



actions range from the most elementary 
steps which construct the graphic objects 
to an action which brings in an already- 
constructed subpicture. Each action has 
been assigned a function code which tells 



the program what to do with it and any 
parameters following. 

Refer to the function codes and the file 
format illustrations while we take a look 
at a GMX Picture file. 



TEKniques Vol. 4 No. 1 described the 
PLOT 50 Standard File, a specially for- 
matted source data file which any PLOT 
50 Standard File Compatible software 
package can access. The PLOT 50 Stan- 
dard File was specifically designed to 
communicate data between analysis ap- 
plications. 

An adjunct to the Standard File are PLOT 
50 Graphic Model Exchange Files (GMX), 

— specially formatted files to allow 
graphic data to be accessed by more than 
one PLOT 50 software package. There 
are two types of GMX files: Picture files 
and Font files. Picture files store picture 
definitions, and Font files store character 
font definitions. 

PLOT 50 Picture Composition, described 
in TEKniques Vol. 5 No. 1, is the first 
PLOT 50 package implementing the 
GMX format for Picture files. Packages 
which output and input GMX files are 
identified as PLOT 50 GMX File com- 
patible. 

Care was taken to make the GMX for- 
mat easy to understand and easy to gen- 
erate. So users writing their own graphic 
applications can access GMX files or 
create GMX files, this article outlines the 
GMX Picture file format. 

GMX Picture File Overview 

The basic structure of a GMX picture (or 
any picture) consists of small areas 
known as subpictures. And each subpic- 
ture is made up of graphic objects. For 
example, a layout of a house could con- 
sist of subpictures of the various rooms. 

These subpictures, in turn, would be 
composed of tables, chairs, and so forth. 

Or, a GMX picture may consist of only 
one subpicture. 

Thus, a GMX Picture file may be a ser- 
ies of subpictures (or one subpicture) 
which contain graphic objects. Put all the 
subpictures together and you have your 
master picture. But how are these graphic 
objects represented so different programs 
may access the file and display them? 

Think of the GMX picture file(s) as a 77 ^ Graphic Model Exchange (GMX) file generated to create this drawing is listed at the end of this 

sequence of graphic “actions.” These article . Annotations relate code to the room’ s components . 
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GMX Functions 



GMX File Compatible packages support 42 functions (actions). The following describes each function and its parameters. 
The quantity, type and order of the parameters for each function is always the same. A dollar sign ($) after a parameter 
name indicates it is a string. An example is given for each function and parameter(s). 

Function # Function Parameters Example 




10 

11 

12 

20 

22 

21 

30 
32 

31 

40 
42 

41 

50 

51 

52 

53 

59 

60 

61 

62 



OPEN FILE TYPE, NAME# 10:0, ’MYPIC’; 

This function always occurs at the beginning of the file. TYPE is the GMX file type, which is 0 for picture files. NAME# is a user-defined 
name for the picture (this should not be confused with the name of the GMX file on the disk or tape). 

CLOSE FILE none 11; 

This function occurs at the end of the GMX file. 

FILE DESCRIPTOR STRING# 12:’Data from 12-25-52’; 

This function allows strings of user data describing the file to be placed in it. The string may contain any printing characters (with ’ 
replaced by ”). File descriptors must precede any tables or subpictures. 

OPEN LINE TABLE none 20; 

This function starts the definitions of line styles. It must precede any subpictures; however, the three tables (line, text, and fill) may be in 
any order. 

DEFINE LINE STYLE INDEX, DASH, WIDTH 22:4,95,2.0; 

This function defines the line style number specified by INDEX. DASH and WIDTH describe the appearance of the line. The semantics of 
DASH and WIDTH are not defined by GMX. This function can only be issued between opening and closing the line table. 

CLOSE LINE TABLE none 21; 

This function closes definition of line styles. 

OPEN TEXT TABLE none 30; 

This function begins definition of text styles, similarly to OPEN LINE TABLE. 

DEFINE TEXT STYLE INDEX, FONT# 32:5, ’ITALICS’; 

This function defines the text style number specified by INDEX. FONT# is the name of the character font. The set of legal names, and the 
appearance of the fonts are not specified by GMX. 

CLOSE TEXT TABLE none 31; 

This function ends the text style definitions. 

OPEN FILL TABLE none 40; 

This function begins definition of fill styles, similarly to OPEN LINE and OPEN TEXT TABLES. 

DEFINE FILL STYLE INDEX, PI. . .P5 42:1,2.4,13,3,3,2.5; 

This function defines the fill style number specified by INDEX. The five parameters describe the fill style. The semantics of the fill 
parameters is not specified by GMX. 

CLOSE FILL TABLE none 41; 

This function ends the fill style definition. 

OPEN SUBPICTURE NAME# 50:”; 

50: ’HOUSE’; 

This function begins the definition of a subpicture. The first subpicture in the file has no name; thus, the function record looks like the first 
example. Note that the string parameter must still be present. 

CLOSE SUBPICTURE none 51; 

This function terminates definition of the subpicture. It must be given before another subpicture can be opened. 

The following functions may only be issued at the beginning of the subpicture (before any objects within the subpicture are defined). 

SET EXTENT LOWX, HIGHX, LOWY, HIGHY 52:10.5, 35.2, 1.5E3,1.8E3; 

This function specifies the extent of the subpicture. This information can be of value to the receiving application for scaling the picture or 
subpicture. 

DEFINE PICK POINT X, Y 53:16.2,254.3; 

This function defines a pick point for the subpicture. Pick points are used to point to a subpicture. It is often useful for subpictures to have 
the same pick point, i.e., center of subpicture relative to EXTENT (above). 







The following functions are used to define the objects in a subpicture. They may only be used after any EXTENT or PICK POINT 
functions for the subpicture are given. 

OPEN POINT OBJECT ID, TYPE 59:37,1000; 

This function begins definition of a POINT object. ID is a number which may be used to identify the object (all object ID numbers should be 
unique). TYPE is the type of point in the point object. The type of point is application dependent. 

OPEN SUBPICTURE OBJECT ID,X,Y,NAME# 60:3645,30.5,24.2, ’RESISTOR’; 

This function begins definition of a SUBPICTURE REFERENCE object. ID is the object ID, as described above. X and Y give the 
location in picture space where the origin in subpicture space is mapped. NAME# is the name of the subpicture (see OPEN SUBPIC- 
TURE). 

OPEN TEXT OBJECT ID, X,Y, STRING# 61:216, 30.5, 20.4, ’65 ohms’; 

This function begins definition of a TEXT object. ID is the object ID. X and Y give the location of the lower left corner of the first 
character. STRING# is the text string, which may be up to 72 characters long. 

OPEN PATH OBJECT ID 62:49761; 

This function begins definition of a PATH object. ID is the object ID. 
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Function # Function 



Parameters 



Example 



63 OPEN POLYGON OBJECT ID 63:49762; 

This function begins definition of a POLYGON object. ID is the object ID. 

64 CLOSE OBJECT none 64; 

This function ends the definition of an object. 

The following object information functions, if used, must occur at the beginning of the object definition (i.e., before the labels 
and coordinates). 

65 SET TRANSFORM X1,X2,Y1,Y2 65:3,0,0,3; 

This function defines the rotation and scaling of a TEXT or SUBPICTURE REFERENCE object. XI and Y1 give the location in picture 

coordinates where the point (1,0) is mapped; X2 and Y2 give the location where the point (0,1) is mapped. SET TRANSFORM may only 
occur in a TEXT or SUBPICTURE object. 

66 SET LINE STYLE INDEX 66:3; 

This function defines the line style for the object. INDEX is the number of the line style. 

67 SET PEN NUMBER INDEX 67:2; 

This function sets the pen number for the object. INDEX is the desired pen number. This function can be used when plotting the picture to 
change pens. 

68. SET TEXT STYLE INDEX 68:1; 

This function defines the text style for the object. INDEX is the number of the text style. 

69 SET FILL STYLE INDEX 69:3; 

This function defines the fill style for the object, INDEX is the number of the fill style. 

70 SET OBJECT DESCRIPTOR STRING# 70:’Monday’; 

This function allows a string of user-defined information to be stored in an object. 

71 SET OBJECT EXTENT LOWX, LOWY, HIGHX, HIGHY 71:10,15,13,17; 

This function specifies the fxtent of the object. 

72 SET PICK POINT X,Y 72:37.542,13.6; 

This function defines a pick point for the object. It is often useful for all occurrences of an object to have the same pick point relative 
to the subpicture. 

73 SET LEVEL INDEX 73:5; 

This function assigns a level number to the object. Level numbers are useful for segregating different parts of the picture for manipulation. 
INDEX is the level number. 

The following functions allow labels for an object to be defined. 

80 OPEN LABEL DESCRIPTION none 80: 

This function begins the definition of the labels for an object. 

82 SET LABEL STYLE INDEX 82:1; 

This function sets the character style for labels following. INDEX is the number of the character style. 

83 SET LABEL TRANSFORM X1,X2,Y1,Y2 83:1.5,1.3,— 1.3, 1.5; 

This function sets the label transform for following labels (see SET TRANSFORM for description of mapping). 

84 SET LABEL PEN INDEX 84:2; 

This function sets the pen number of the following labels. INDEX is the number of the pen. 

85 ENTER LABEL X,Y, STRING# 85:78.2, 14.26, ’Budget’; 

This function defines a label. The label will take on the characteristics set by the most recent label attributes in the current object. 

81 CLOSE LABEL DESCRIPTION none 81; 

This function ends definition of labels. 

The following functions describe the coordinate data for the object. 

90 OPEN POINT DESCRIPTION none 90; 

This function begins definition of the coordinate data for the object. The point description must follow the label description if one is 
present. Point descriptions are only allowed in PATH, POINT, and POLYGON objects. 

92 ENTER VERTEX X,Y 92:56.23, 1.5E02; 

This function defines a vertex in the current object. The first and last points in the point description must always be vertices. The first and 
last points in the point description of a POLYGON object must have the same coordinates. 

93 ENTER ARC POINT X,Y 93:16.2,43.764; 

This function defines an arc point in the current object. An arc point must be preceded and followed by vertices. Arc points are not allowed 
in POINT objects. 

94 ENTER CURVE POINT X,Y 94:57.87,12.43; 

This function defines a curve point in the current object. A curve point must be preceded and followed by either curve points or vertices. 
Curve points are not allowed in POINT objects. 

91 CLOSE POINT DESCRIPTION none 91; 

This function ends the point definition. 
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GMX Picture Files on Tape 

First, let’s look at the preliminary 
requirements for storing a GMX picture 
file on tape. 

GMX files may reside on any PLOT 50 
Standard Data Tape. A PLOT 50 Stan- 
dard Data Tape has the following format: 

File 1. An ASCII program. When the 
tape is autoloaded, this file identifies the 
tape to the users as a PLOT 50 Standard 
Data Tape. 

File 2. This is a binary data file. As its 
first item it must contain the string: 
P50STND. This string identifies the tape 
as a PLOT 50 Standard Data tape. With- 
out this file, the tape cannot be read by a 
PLOT 50 Standard File Compatible/GMX 
File Compatible program. Further con- 
tents of this file are ignored by the program. 

File 3 and following. The remainder of 
the files are PLOT 50 GMX, Standard or 
Package dependent Files. Some or all of 
these files may be GMX files. A GMX 
picture file on tape has two additional 
strings at the beginning which are not found 
on the disk. The first string is P50PICT 
which identifies the file as a GMX picture 
file. The second is the username for the 
file, which may be up to ten characters 
long with .PICT as the extension. When 
GMX files are put on or taken from a tape 
by a PLOT 50 GMX file Compatible pro- 
gram, they are referred to by name rather 
than number. 

GMX Picture Files on Disk 

The only requirement peculiar to the disk 
is that the file identifier of the GMX 
picture file must be: 



Each record contains an action which 
defines or contributes towards defining 
one of the graphic objects which make 
up the subpicture. Thus, a GMX record 
consists of one or more fields which 
store a numeric function code, zero or 
more numeric parameters and/or zero or 
more string parameters. The quantity of 
numeric or string parameters for a given 
function code is always the same. 

The function code specifies the type of 
action, e.g., OPEN TEXT OBJECT 
(Function 61), and the parameters in the 
record specify the other information nec- 
essary to fully define the action, i.e., the 
string and its location. 

Each record is terminated by a semico- 
lon (;). If the record consists of only a 
function code with no parameters, the 
semicolon immediately follows the func- 
tion code, e.g., Function 11, CLOSE 
FILE. Otherwise, the function code is 
separated from the parameters by a co- 
lon (:). The parameters are separated 
from each other by a comma (,). 

Spaces may be used between records 
and between fields within a record. A 
record may be broken across strings pro- 
vided the break occurs between fields, 
i.e., after the field separator. 

The form of a numeric parameter may be 
anything which is acceptable to the VAL 
function in BASIC, including signs, deci- 
mal points, and exponents. String param- 
eters are enclosed in single quotes (’). A 
single quote in a string must be replaced 
by two single quotes (”). Note the exam- 
ples of different formats included with 
the function codes. 

GMX File Descriptor 



integer values are described in a set of 
optional tables at the beginning of the 
GMX file (but following the File Descrip- 
tor, if any). The tables supported by 
GMX files are: 

Line Style 
Text Style 
Fill Style 

However, some PLOT 50 GMX File 
Compatible programs have a fixed set of 
line styles and character fonts, and don’t 
use any fill style. Thus, these programs 
will not produce any tables preceding the 
GMX files they put out, and they will ig- 
nore any tables on files coming in. 

GMX Subpictures 

A GMX subpicture may begin with two 
attributes: 

SET EXTENT 
DEFINE PICK POINT 

SET EXTENT provides the receiving 
program with the coordinates of the win- 
dow of the subpicture, thus informing it 
of its scale. 

By designating coordinates within a sub- 
picture as its PICK POINT, a program 
can refer to this point in moving and 
placing subpictures. 

Once the EXTENT and PICK POINT 
actions are defined, the objects within 
the subpicture are described. 

GMX Graphic Objects 

All GMX subpictures are constructed 
from five types of graphic objects: 

PATH 

POLYGON 

POINT 

TEXT 

SUBPICTURE REFERENCE 

While there are some differences in the 
format between these five types, they all 
follow the same general form. 

The first record specifies which object 
will be defined. Next, there may be at- 
tributes which describe some of the char- 
acteristics of the object necessary for 
producing its image, e.g., line style. 
These need not be present, in which case 
a default value is implied. 

After 'the attributes, there may be a sec- 
tion where any labels are defined. Each 
object may have its own labels. The la- 
bels themselves may have certain attrib- 
utes, i.e., text style. 



@P50GMX/username.PICT 

Thus, all GMX files on the disk reside in 
the library P50GMX. The extension 
.PICT is used to distinguish between pic- 
ture files and other types of GMX graph- 
ic files. For example, .FONT would indi- 
cate a GMX font file. 

Physical GMX Picture File 

Physically, a GMX picture file is a se- 
quential binary file, consisting only of 
strings, which describes the subpic- 
ture(s). Each string may be up to 250 
characters long. Each string consists of 
one or more GMX records concatenated 
together. 



A GMX File may contain a file descrip- 
tor. This is an application dependent 
character string which is placed at the 
beginning of the GMX file. It is used to 
store information which cannot be stored 
in GMX format in some other way. 

GMX Tables 

In order to improve portability between 
programs while still allowing a GMX pic- 
ture to be sent to different types of de- 
vices, parameters of some object attrib- 
utes are specified as integers. The 
meaning of these integer values can be 
established by the application producing 
the GMX file so that the application re- 
ceiving the GMX file may reproduce the 
picture faithfully. The meaning of these 
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The last part of an object description is 
the point definition section. This section 
is only present for PATH, POLYGON 
and POINT objects. It contains the coor- 
dinates which describe the graphical part 
of the object. 

Object Attributes 

SET TRANSFORM may only occur in a 
TEXT or SUBPICTURE object. SET 
TRANSFORM allows text or a subpic- 
ture to be represented in the picture in a 
different size or orientation than their 
original definition. To do this, a linear 
transformation is applied to the text 
string or subpicture. To specify this 
transformation, you simply supply the 
coordinates in picture space of the loca- 
tions where two points in the object’s 
coordinate space are mapped. The two 
points of the TEXT object are lower 
right and upper left of the first character. 
The two points of the SUBPICTURE 
object are lower right and upper left of 
its window. 

SET LINE STYLE is used with PATH 
or POLYGON objects. 

SET PEN NUMBER may be used with 
any of the objects. 

SET TEXT STYLE would be used with 
TEXT objects only. 

SET FILL STYLE would be used to 
shade a POLYGON. 

SET OBJECT DESCRIPTOR. The infor- 
mation stored here would not necessarily 
be printed. This function is application 
dependent. 

SET OBJECT EXTENT. Like Function 
52, this sets the window but of the object 
within the subpicture. 

SET PICK POINT. The point set would 
be used to point to an object. It is often 
useful for all occurrences of an object to 
have the same pick point relative to the 
subpicture. 

SET LEVEL. Using level numbers, a 
program can. display only those objects 
contained on the same level. Very handy 
for manipulating parts of subpictures. 

Object Labels 

The Label Definition Section follows the 
Object Attribute section. GMX supports 
three attributes for labels: 

Style 

Transform 

Pen 



Style is self-explanatory. Refer to SET 
TRANSFORM in the Object Attributes 
for an explanation of Transform. Pen re- 
fers to the pen number. 

Object Points 

The Point Definition Section of the 
POINT object describes a set of individ- 
ual locations. Each of these locations is 
called a vertex. No lines, curves, or arcs 
may be used within a POINT object. 

For PATH or POLYGON objects, there 
may be three types of points: vertex, arc 
and curve. These locations are connect- 
ed together according to certain conven- 
tions to create a contour. A POLYGON 
object describes a closed contour, while 

Summary 



the contour described by a PATH is not 
necessarily closed. 

When two vertex points occur together 
in a PATH or POLYGON, they are 
meant to be connected by a straight line. 
An arc point, which must always be im- 
mediately preceded and followed by ver- 
tices, implies that a circular arc be 
drawn through the three points. A se- 
quence of curve points, which must al- 
ways be preceded and followed by ver- 
tices, implies that a smooth curve is 
passed through the two vertices and the 
curve points. The net result is that a 
PATH or POLYGON defines a set of 
segments of various shapes which are 
connected end-to-end in an unbroken se- 
quence. 



This has given you an overview of the PLOT 50 Graphic Model Exchange File 
(GMX) structure. To summarize the commands and their sequence: 



OPEN FILE (10) 

FILE DESCRIPTOR (opt) (12) 

OPEN LINE TABLE (opt) (20) 

DEFINE LINE STYLE (22) 

CLOSE LINE TABLE (21) 

OPEN TEXT TABLE (opt) (30) 

DEFINE TEXT STYLE (32) 

CLOSE TEXT TABLE (31) 

OPEN FILL TABLE (opt) (40) 

DEFINE FILL STYLE (42) 

CLOSE FILL TABLE (41) 

OPEN SUBPICTURE (50) 

SET EXTENT (opt) (52) 

DEFINE PICK POINT (opt) (53) 

OPEN POINT OBJECT (opt) (59) 

SET PEN NUMBER (opt) (67) 

SET OBJECT DESCRIPTOR (opt) (70) 
SET OBJECT EXTENT (opt) (71) 

SET PICK POINT (opt) (72) 

SET LEVEL (opt) (73) 

OPEN LABEL DESCRIPTION (opt) (80) 
SET LABEL STYLE (opt) (82) 

SET LABEL TRANSFORM (opt) (83) 
SET LABEL PEN (opt) (84) 

ENTER LABEL (85) 

CLOSE LABEL DESCRIPTION (81) 

OPEN POINT DESCRIPTION (90) 
ENTER VERTEX (92) 



CLOSE POINT DESCRIPTION (91) 
CLOSE OBJECT (64) 

OPEN SUBPICTURE OBJECT (opt) (60) 
SET TRANSFORM (opt) (65) 
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SET LINE STYLE (opt) (66) 


SET LEVEL (opt) (73) 


(if any lines within the subpicture 


OPEN LABEL DESCRIPTION (opt) (80) 


used the default, this command would 


SET LABEL STYLE (opt) (82) 


override the default) 


SET LABEL TRANSFORM (opt) (83) 


SET PEN NUMBER (opt) (67) 


SET LABEL PEN (opt) (84) 


(override default) 


ENTER LABEL (85) 


SET TEXT STYLE (opt) (68) 


CLOSE LABEL DESCRIPTION (81) 


(override default) 


OPEN POINT DESCRIPTION (90) 


SET FILL STYLE (opt) (69) 


ENTER VERTEX (92) 


(override default) 


ENTER ARC POINT (opt) (93) 


SET OBJECT DESCRIPTOR (opt) (70) 
SET OBJECT EXTENT (opt) (71) 

SET PICK POINT (opt) (72) 


ENTER CURVE POINT (opt) (94) 


SET LEVEL (opt) (73) 


ENTER VERTEX (92) 


OPEN LABEL DESCRIPTION (opt) (80) 


CLOSE POINT DESCRIPTION (91) 


SET LABEL STYLE (opt) (82) 


CLOSE OBJECT (64) 


! SET LABEL TRANSFORM (opt) (83) 


OPEN POLYGON OBJECT (opt) (63) 


SET LABEL PEN (opt) (84) 


SET LINE STYLE (opt) (66) 


ENTER LABEL (85) 


SET PEN NUMBER (opt) (67) 


CLOSE LABEL DESCRIPTION (81) 


SET FILL STYLE (opt) (69) 


CLOSE OBJECT (64) 


SET OBJECT DESCRIPTOR (opt) (70) 


OPEN TEXT OBJECT (61) 

SET TRANSFORM (opt) (65) 

SET PEN NUMBER (opt) (67) 

SET TEXT STYLE (opt) (68) 

SET OBJECT DESCRIPTOR (opt) (70) 
SET OBJECT EXTENT (opt) (71) 

SET PICK POINT (opt) (72) 

SET LEVEL (opt) (73) 

OPEN LABEL DESCRIPTION (opt) (80) 
SET LABEL STYLE (opt) (82) 

SET LABEL TRANSFORM (opt) (83) 
SET LABEL PEN (opt) (84) 

ENTER LABEL (85) 

CLOSE LABEL DESCRIPTION (81) 
CLOSE OBJECT (64) 


SET OBJECT EXTENT (opt) (71) 

SET PICK POINT (opt) (72) 

SET LEVEL (opt) (73) 

OPEN LABEL DESCRIPTION (opt) (80) 
SET LABEL STYLE (opt) (82) 

SET LABEL TRANSFORM (opt) (83) 
SET LABEL PEN (opt) (84) 

ENTER LABEL (85) 

CLOSE LABEL DESCRIPTION (81) 
OPEN POINT DESCRIPTION (90) 
ENTER VERTEX (92) 

ENTER ARC POINT (opt) (93) 

ENTER VERTEX (92) 

ENTER CURVE POINT (opt) (94) 
ENTER VERTEX (92) 

| 


OPEN PATH OBJECT (opt) (62) 


1 


SET LINE STYLE (opt) (66) 


CLOSE POINT DESCRIPTION (91) 


SET PEN NUMBER (opt) (67) 


CLOSE OBJECT (64) 


SET OBJECT DESCRIPTOR (opt) (70) 


CLOSE SUBPICTURE (51) 


SET OBJECT EXTENT (opt) (71) 
SET PICK POINT (opt) (72) 


CLOSE FILE (11) 




For a working example, let’s take a look 


code was generated by the PUT utility of 




at the following code to see exactly how the 


PLOT 50 Picture Composition software 




GMX picture file is constructed. This 


package. 




P50PICT 

FAMILYROOM .PICT 10 : 0 , ' FAMILYROOM . PIC1 


'; open file; username 




12 : 1 SUBPIC : NO ' ; 


file descriptor 




50: " ; 


open subpicture (1st subpicture in a 


file has no name) 


52:0,100,0,100; 


set extent 




53:50,50; 


define pick point 




62:1; 


open path object (ID is #1) 




71:20,90,15,30; 


set extent 




72:20,15; 


set pick point 




90; 


open point description 




92:20,15; 


enter vertex (at coordinates 


20,15) 


92:35,15; 


M h 




92:35,30; 


H ii 




92:90,30; 


ii ii 




91; 


close point description 




64; 


close object 




62:9; 


open path object (ID is #9--ID #'s 


don't have to be sequential) 
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open point description 



71:90,90,40,60? 

72:90,40? 

90? 

92:90,40? 

92:90,60? 

91? 

64? 

62:11? 

71:70,90,70,95? 

72:90,70? 

90? 

92:90,70? 

92:90,95? 

92:70,95? 

91? 

64? 

62:13? 

71:30,70,95,95? 

66 : 2 ? 

72:70,95? 

90? 

92:70,95? 

92:30,95? 

91? 

64? 

62:14? 

71:20,30,80,95; 

72:30,95? 

90? 

92:30,95? 

92:20,95? 

92:20,80? 

91? 

64? 

62:34? 

71:20,20,60,70? 

72:20,70? 

90? 

92:20,70? 

92:20,60? 

91? 

64? 

62:40? 

71:20,20,30,50? 

72:20,50? 

90? 

92:20,50? 

92:20,30? 

91? 

64? 

62:42? 

71:20,20,70,80? 

66 : 2 ? 

72:20,80? 

90? 

92:20,80? 

92:20,70? 

91? 

64? 

62:46? 

71:90,95,60,70? 

72:95,70? 

90? 

92:95,70? 

92:90,60? 

91? 

64? 

62:48? 

71:90,95,30,40; 

72:90,30? 

90; 

92:90,30? 

92:95,40; 

91; 

64; 

62:50? 

71:70.63,87.08,72.35,90.57; 

72:77,88; 



close point description 
close object 
open path object #11 



open point description 



close point description 
close object 
open path object #13 

set line style (for the object) 

open point description 



close point description 
close object 
open path object #14 



open point description 



close point description 
close object 
open path object #34 



open point description 



close point description 
close object 
open path object #40 



open point description 



close point description 
close object 
open path object #42 

set 1 i ne style 

open point description 



close point description 
close object 
open path object #46 



open point description 



close point description 
close object 
open path object #48 



open point description 



close point description 
close object 
open path object #50 
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80; 

82:4; 

83:0.94,-0.35,0.34,0.94; 
85:75.18,80.15, 'CHAIR 1 ; 
81; 

90; 

92:77,88; 

92:72.51,75.8; 

92:70.63,76.49; 

92:75.81,90.57; 

92:87.08,8^.42; 

92:81.89,72.35; 

92:80.02,73.04; 

92:84.51,85.24; 

92:77,88; 

92:76.65,87.06; 

92:76.9,84.84; 

92:82.53,82.77; 

92:84.16,84.3; 

92:80.36,73.98; 

92:79.08,73.38; 

92:73.45,75.45; 

92:72.86,76.74; 

91; 

64; 

62:20; 

71:39,61,77,87; 

72:42,87; 

80; 

82:4; 

83:1,0,0,1; 

85:43,79, 'COUCH' ; 

81; 

90; 

92:42,87; 

92:42,77; 

92:39,77; 

92:39,87; 

92:61,87; 

92:61,77; 

92:58,77; 

92:58,87; 

92:58,86; 

92:42,86; 

92:42,84; 

92:43,83; 

92:49,83; 

92:50,84; 

92:50,86; 

92:50,84; 

92:51,83; 

92:57,83; 

92:58,84; 

92:58,78; 

92:57,77; 

92:51,77; 

92:50,78; 

92:50,84; 

92:50,78; 

92:49,77; 

92:43,77; 

92:42,78; 

91; 

64; 

62:7; 

71:40,60,66,74; 

72:40,66; 

80; 

82:4; 

&o:l,6,6,l; 

85:43,69, 'COFFEE TABLE'; 
81; 

90; 

92:46,66; 

92:66,66; 

92:60,74; 

92:40,74; 

92:40,66; 

91? 

64; 

62:29; 



open label description 
set label style (font) 
set label transform 
enter label 

close label description 
open point description 



close point description 
close object 
open path object #20 



open label description 



close label description 
open point description 



close point description 
close object 
open path object #7 



open label description 



close label description 
open point description 



close point description 
close object 
open path object #29 
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20,20,50,60; 

2 ; 

20 , 66 ; 

20,60; 

20,50; 



26,33,49, 'FAMILY ROOM'; 
33,77,49,58; 

2 ; 

2 ; 

4 , 0 , 0 , 9 ; 

33,49; 



s 23 . 73, 34. 27, 78. 73, 89 . 27 j 
: 29 , 84 ; 



set 1 i ne styl e 

open point description 



close point description 
close object 
open text object #26 
set extent 
set pen number 
set text style (font) 
set transform 
set pick point 
close object 
open path object #36 



open label description 



1 , 0 , 0 , 1 ; 

26,85, 'ROUND' ; 

l , 0 , 0 , 1 ; 

26,82, 'TABLE' ; 



29,89.27 

29,78.73 

29,89.27 



24; 

58,85,30,35; 

58,30; 

4; 

1 . 11 , 0 , 0 , 1 ; 

68,32, 'BOOK CASE' ; 



s 44 . 8, 54. 8, 33. 38, 41. 38; 
: 44. 8, 36. 38; 



(places a two-word 
1 abel on two 1 i nes ) 

close label description 
open point description 



close point description 
close object 
open polygon object #24 



open label description 



close label description 
open point description 



close point description 
close object 
open path object #37 



open label description 



:1. 05, 0,0, 1.28; 
:47.87,38.27,'T. V.'; 



44.8.36.38 

54.8.36.38 

54.8.41.38 

44.8.41.38 

44.8.36.38 

47.8.36.38 

48.8.33.38 

50.8.33.38 

51.8.36.38 



45.8,53.8,41.38,42*56; 

53.8,41.38; 

53.8,41.38; 

49.76,42.56; 

45.8,41.38; 



close label description 
open point description 



close point description 
close object 
open path object #62 



open point description 



close point description 
close object 
close subpicture 
close file 
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4051 Redesigned for Added Value 




by Dave Watts 
Tektronix, Inc. 
Wilsonville, OR 



There are a number of reasons for rede- 
signing an existing product. Sometimes 
technology changes, and sometimes sup- 
plied components change. Other times 
there is a desire to add features that wer- 
en’t available when the product was in- 
troduced. 



The 4051 has just undergone such a 
change, which has resulted in new stan- 
dard features and added value. The basic 
4051 now comes with 16K Bytes of stan- 
dard memory. In addition, the Matrix 
ROM functions and Binary Program 
Loader functions are now standard. 



Further information about the Added 
Value 4051 can be obtained from your 
local Tektronix Sales Engineer. ^g7) 



The Added Value 4051 will allow first- 
time users a wider selection of applica- 
tion software due to the larger available 
memory. And the built-in matrix func- 
tions are a feature that’s useful in solving 
linear regressions, statistical problems, 
and two- and three-dimensional transfor- 
mations. The standard binary program 
loader in the backpack will load pro- 
grams from tape to memory four to six 
times faster than ASCII stored programs. 

In addition to containing the same matrix 
and binary program loader functions that 
are found in the 4052 and 4054, another 
change is found in the size of additional 
memory. There is a single memory incre- 
ment of 16K Bytes available for the re- 



designed 4051. This means there are two 
memory sizes available — either 16K 
Bytes or 32K Bytes of user memory. 

By adding these features, the 4051 will 
continue to serve many users as a high- 
resolution graphic desktop computer. 
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TEKniques Interview 



This week the TEKniques reporter inter- 
views the staff of the APPROACHING 
COMPUTER GRAPHICS SEMINAR, 
Lynn Normandin and Don Davis, Semi- 
nar Leaders, and Sam Dunne, Seminar 
Coordinator and Registrar. 

T: I understand that TEK sponsors a 
computer graphics seminar. Can you 
tell us how it got started? 

D: Yes. It began because management of 
our Information Display Division feels 
that managers in general have a diffi- 
cult time finding out about promising 
new technology. As a leader in the 
field of computer graphics terminolo- 
gy, it seemed appropriate for us to ad- 
dress that problem. That led to the 
development of the Approaching 
Computer Graphics seminar program, 
about two years ago. 

T: Is the program aimed only at manag- 
ers? 

L: It’s presented from a manager’s view- 
point. However, it has been found 
useful for a number of others. 

T: What percentage of your attendees 
are managers? 

L: Typically about 40% of the attendees 
are management people. 

T: What about the other 60% ? 

D: That’s really a tough question. Our at- 
tendees come from a wide variety of 
areas. Some of these include finance, 
sales and marketing, data processing, 
education, engineering, and architec- 
ture. We even have a graphic artist 
attending at about 80% of the semi- 
nars. 

T: In a few words, what is the purpose 
of the seminar? 

L: To provide managers and other non- 
computer professionals with a com- 
prehensive introduction to computer 
graphics. 

T: What do you mean by “non-compu- 
ter” professionals? 

D: Just that you don’t have to be a com- 
puter expert to come to the seminar 
and benefit from it. 

T: Does that mean that technical people 
shouldn’t come? 

D: Not at all. As a matter of fact, many 
of our attendees would be considered 
quite technical. However, they come 



to the seminar for the comprehensive 
overview we provide rather than for 
technical information. 



T: When and where are the seminars 
held? 

S: We have a regular schedule that takes 
us to major cities in the United States 
and Canada. Typically we will be in a 
different city each month, with two 
seminars in each location. During the 
next few months we’ll be in Seattle, 
Atlanta, Washington D.C., and Hous- 
ton. And of course attendees can and 
do come from all over to attend. 

T: How do people find out about the se- 
minar? 

S: Some by word of mouth, some by 
trade publication articles. But most 
learn about it through our direct mail 
brochure, which is mailed to each lo- 
cation several weeks before the sche- 
duled seminars. 



T: It sure sounds interesting. From the 
outline in your brochure it looks like 
a pretty busy day. 

D: Yes it is. We cover a lot of material, 
beginning with the history of compu- 
ter graphics and ranging through hard- 
ware and software concepts, graphic 
display systems, CAD/CAM, graph- 
ing, and implementation of a 
computer graphics solution. We make 
extensive use of color visuals, using 
about 600 35mm slides. We also have 
two workshop sessions each day. 

T: Are the workshops “hands-on” ses- 
sions using computer terminals? 

L: No, the workshops are really manage- 
ment-solving sessions. We present 
case study problems and our atten- 
dees are broken into teams to develop 
possible solutions. 

D: The workshops are a big help to many 
attendees, in that they are given an 
immediate opportunity to apply some 
of the things that they’ve learned. 

L: The interactive discussion in the 

workshops is also a nice change of 
pace from the slide presentations. 

T: Okay, let me review the seminar for 
our readers. It’s a one-day introduc- 
tion to computer graphics, aimed pri- 
marily at managers, but you don’t 



have to be a manager to attend. Also, 
it’s presented in non- technical terms, 
so you don’t need a log of computer 
experience to benefit. 

The seminar tuition is $150, which in- 
cludes the seminar reference manual, 
lunch, and post-seminar refreshments. 
If any of our readers would like addi- 
tional information, they should look at 
the partial brochure reprint in this is- 
sue, and/or call Sam on the seminar 
hotline. 

S: That’s right. The number is (503) 682- 
0771, and you can call collect. We 
have a recording device on the line, 
so you can call any time and leave a 
message if we’re not there. 

D: One other thing that I’d like to men- 
tion is that we also offer AP- 
PROACHING COMPUTER GRAPH- 
ICS SEMINAR at the customer’s 
site. 

T: How does that work? 

D: When there are several people in an 
organization who could benefit from 
this computer graphics overview, it’s 
often more practical for us to bring 
the seminar to them. The cost savings 
are significant, particularly for those 
in remote locations. 

These on-site seminars have proven 
to be especially useful to current 
users who want to introduce or pro- 
mote computer graphics to other de- 
partments within their organization. 

T: How would our readers go about get- 
ting more information on these on-site 
seminars? 

S: Just call the seminar hotline number 
— (503) 682-0771. I’ll be able to 
provide pricing and scheduling infor- 
mation, and answer any other ques- 
tions that might arise. Jg) 
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PROGRAMMING 

TIPS 






Correction to Programming Tip 



TEKniques Vol. 4 No. 8 carried the pro- 
gramming tip “Repetitious Data Entry.” 
Correct statement 170 to read: 

170 GO TO 210 



Our thanks to James Y. Hope, Systems 
Analyst at Shearwater Inc. in Stoning- 
ton, CT, for pointing out this error. Our 
apologies to Michael Anderson for inad- 
vertently changing a line of his code. 



Convert PLOT 50: GRAPH PLOT to Disk 



by Bill Detweiler 

Office of Health Services 
Research 

West Virginia University 
Morgantown, W.V. 



Persons who use TEKTRONIX Plot 50: 
Graph Plot (Tektronix product no. 
4050A07) may find considerable advan- 
tage in storing the package’s four pro- 
grams on a 4907 File Manager disk. This 
implementation reduces overlay access 
tipie, and eliminates the task of constant- 
ly changing between the program tape 
and the data (or presentation) tape in the 
4050 system tape drive. 



To make this modification, follow these 
instructions: 

1) Insert the Graph Plot tape in the 
system tape drive. Load file 1. 

2) Delete lines 80 through 95, and lines 
400 through 450. 

3) Enter the following lines of code: 



80 M s MEM0RY 

81 CALL "UNIT’S 0 

82 G0SUB FI OF @4,86,88,90 

83 GO TO 96 

84 APPEND "GRAPHPLOT/INIT” J 100 

85 RETURN 

86 APPEND M GRAPHPLOT/f1ANA’S100 

87 RETURN 

88 APPEND "GRAPHPLOT/PRES’S100 

89 RETURN 

98 APPEND "GRAPHPLOT/DISP’S100 
91 RETURN 
400 GO TO 68 



4) Now save the program on disk as 
“GRAPHPLOT/INIT” . 

5) Load the second file on the tape into 
the 4050 memory. If you do not 
have a binary program loader, load 
file 5 instead. 

6) Convert lines 6830 and 6840 to ‘RE- 
MARKS’, either by entering the line 
number and then ‘REMARK’ or by 
inserting ‘REM’ in front of the exist- 
ing statements. 

7) Save this program on the disk as 
‘ ‘ GRAPHPLOT/M AN A’ ’ . 

8) Load file 3 (file 6 for ASCII). 

9) Convert lines 590 and 600 and 5720, 
5730 to ‘REMARKs’ as explained in 
instruction 6. 

10) Save this program on disk as 
“GRAPHPLOT/PRES” . 

11) Load fhe 4 (file 7 for ASCII). 

12) Convert lines 6230 and 6240 to ‘RE- 
MARKS’ as explained in instruction 
6 . 

13) Save this program on disk as 
“GRAPHPLOT/DISP” . 

To run the program, just enter: OLD 

“GRAPHPLOT/INIT” and then press 

return. You no longer have to worry 

about putting the program tape in the 

4050 drive. 
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Storing Strings in Arrays 

by Deedie Strandridge 

Phillips Petroleum Company 
Bartlseville, OK 

In research, it is often necessary to refer 
to a sample by a name rather than a 
number. This routine allows you to store 
a character string in an array and call it 
back later. 

The program converts a segmented char- 
acter of a string variable to ASCII and 
stores that number in a two dimensioned 
array (number of samples x maximum 
number of letters). Later, the program 
reads the array, translating the ASCII re- 
presentation back to a character. It can 
be used to print horizontal as well as 
vertical strings (with few modifications). 



Use DELETE to Initialize 

by Bill Finkenstadt 
Tektronix, Inc. 

Dayton, OH 
and Dan Taylor 
Tektronix, Inc. 

Wilsonville, OR 

One of the outstanding features of the 
4050 System is its dynamic memory 
management. This means the memory 
space to store arrays or dimensioned 
strings is not allocated until the respec- 
tive DIM command is executed. 1 And a 
DELETE n statement frees all space al- 
located to n array or n string. Such dy- 
namic allocation allows you to use all 
available memory for your current data. 

When a program statement including a 
variable, i.e., DIM A$(100) or PRI B, 
etc., is translated 2 by the 4050 System, 
the variable name is placed in the sym- 
bol table (if it isn’t already there). When 



Execution occurs when a program is RUN. 

2 Translation occurs when a statement is keyed 
in (immediate mode), OLDed or 
APPENDed. 

3 See your 4050 Graphic System Reference 
manual for how much space is required for 
variable names and Programming 
Tips, p. 49. 

4 Be sure to leave space for the Status Stack 
(see Programming Tips pp. 21, 37, 
45 and 83, and TEKniques Vol. 4 No. 6, p. 
22 ). 



100 


REM *** STORE A CHARACTER STRING IN AN ARRAY 




110 


INIT 




120 


DIM T<10,20) 




130 


PAGE 




140 


REM *** I * NUMBER OF SAMPLES 




150 


FOR 1=1 TO 18 




160 


PRINT "ENTER A 20 CHARACTER DESCRIPTION OF THE 


SAMPLE. " 


170 


INPUT A$ 




180 


IF 1=1 AND A**"" THEN 410 




190 


IF A$=" " THEN 300 




200 


L=LEN<A*> 




210 


FOR J=1 TO 20 




220 


REM *** J * MAXIMUM NUMBER OF CHARACTERS 




238 


IF J<=L THEN 260 




240 


B$=" " 




250 


GO TO 270 




260 


B$*SEG<A$,J, 1) 




270 


T(I, J)=ASC<B$) 




280 


NEXT J 




290 


NEXT I 




300 


K= I — 1 




310 


PAGE 




320 


REM *** READ CHARACTER STRINGS FROM ARRAY AND 


PRINT 


330 


FOR 1=1 TO K 




340 


A$=" " 




350 


FOR J=1 TO 20 




360 


B$=CHR<T< I j J) ) 




370 


A*=A*&B* 




380 


NEXT J 




390 


PRINT A* 




400 


NEXT I 




410 


END 





Symbol Table 

the program is executed, the symbol ta- 
ble has already been initialized, thus, no 
more table space will be required for 
variable names. 3 

However, suppose your program con- 
sists of several files which you’ll be ap- 
pending during the course of execution, 
and those files contain code using new 
variable names. If you are approaching a 
full memory with your program and data, 
you may want to include all variables 
from all files in your symbol table at the 
beginning. Thus, you will know what 
memory is available for data without 
worrying about symbol table space taken 
later for incoming local variables (see the 
diagram for memory allocation). 4 

How do you assign variable names to 
your symbol table without the statements 



which use them? Simply, include code 
which DELETES them. The variable 
names in the DELETE statement will be 
assigned to the symbol table at transla- 
tion time, and the code need never be 
executed. 

1000 GOTO 2000 

1010 DELETE Tl, T2 . . . 

1020 DELETE Wl, W2 

2000(use MEM to determine available 
space) 

This helps avoid MEMORY full prob- 
lems when those other files are AP- 
PENDed. 



System RAM ~2K 




communications work area ~6K 


(optional) 


User program, arrays 
and strings 


dynamic 


Free Space 




Stack for 1 


must be shifted t every time item 


evaluation, GOSUB, FOR ... 


is added to Nametable 


Nametable | 


never goes away except for 
OLD or DEL ALL 



4050 Memory structure (conceptually) 
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Command Entry through POINTER Function 



by Chester M. No wield, EE 

Naval Air Development Center 
Warminster, PA 

The 4050 Series POINTER function lets 
you enter commands without pressing 
RETURN. This feature proves especially 
useful for implementing functions with a 
single keystroke. 

The sample main program occupies 
statements 100 to 220. The subroutine 
beginning at statement 500 fetches up to 
five consecutive keystrokes, but retains 
only the first four. However, single key - 
strokes may cause direct action. For ex- 
ample, control-C causes a restart of the 
entry sequence (line 560). Also, control- 
L automatically assigns a “PAGE” com- 
mand word to A$ and forces the 
subroutine to end (lines 600 to 620). 

The routine fetches keystrokes with C$, 
builds commands with AS, counts entries 
with N and tracks the cursor print posi- 
tion with X and Y. Variables A and B 
serve only to fulfill the requirements of 
the POINTER instruction. 

Statement 140 tests for an “END” com- 
mand that terminates the program. State- 
ment 150 accepts only commands that 
have four characters; unacceptable com- 
mand lengths force the re-entry of a 
command. Statements 170 and 180 test 
for and act upon the “PAGE” sample 
command. 

Alternate approaches to command de- 
coding could employ indexed lists of 
command words (strings or data state- 
ments), whereby a computed GOSUB 
would effect the required action. The 



program could handle invalid commands 
by printing an appropriate message, then 
branching to line 130 for command re-en- 
try. Of course, the instruction in state- 
ment 170 should branch to the statement 
for the command test routine (see re- 
marks in statements 190 and 200), unless 
it’s incorporated within that routine. 

In case your program requires repeated 
entry and execution of commands, 
inserting GOTO 130 between statements 
210 and 220 would provide a continuous 
loop. As written, the main program ter- 
minates after entry of any four character 
sequence, as well as the “END” and 
“PAGE” commands. 

Of particular significance to the use of 
the POINTER command is that pressing 
RETURN assigns C$ the value of “” 
with zero length. If the program requires 



a carriage return, the programmer should 
provide this test: 



. . . IF C$< > " " THEN (line number of next instruction) 
. . . C$»CHR(13) 

. . . (program continues) 



Statement 630 tests for the zero length 
condition of C$ for completion of com- 
mand entry as a consequence of pressing 
RETURN. This allows entry of com- 
mands shorter than four characters, e.g., 
“END”). Alternatively, character count 
N=5 automatically ends the subroutine 
and passes the previous four entries to 
the calling routine. Statement 620 effects 
the equivalent of a RETURN for the 
“PAGE” command, in response to the 
control-L keystroke. 



tee 


DIM C$<1> 




lie 


PAGE 




120 


REM *** GO FETCH COMMAND STRING 




138 


GOSUB 500 




140 


IF A$="END H THEN 220 




150 


IF LEN(A$)< >4 THEN 130 




160 


REM *** INTERPRET COMMAND STRING FOR ACTION 




170 


IF A$< >"PAGE" THEN 210 




180 


PAGE 




190 


REM *** IF COMMAND INUALID, PRINT MESSAGE} THEN 




200 


REM *** BRANCH TO 130 TO FETCH ANOTHER 




210 


PRINT 




220 


REM 




230 


END 




480 


REM *** THIS SUBROUTINE TAKES UP TO FIUE 




490 


REM *** KEY ENTRIES, BUT IGNORES THE LAST 




500 


PRINT USING M /,10T,"" INPUT 4 CHARACTERS AND ANY 5TH 


ONE: "",S": 


510 


N=1 




520 


A$="" 




530 


GIN X, Y 




540 


POINTER A, B, C$ 




550 


M0UE X, Y 




560 


IF C$="Q" THEN 500 




570 


REM m TEST ENTRIES TO EXCLUDE OR ACT UPON CONTROL 


CHARACTERS 


580 


REM Ut BRANCH TO 540 TO IGNORE ENTRY, OR ASSIGN A 


PREDEFINED 


590 


REM *** COMMAND WORD TO A*, THEN SET Ct* H " 




600 


IF C$< >"L" THEN 630 




610 


A$*"PAGE H 




620 


C*="" 




630 


IF N=5 OR LEN<C$)°0 THEN 680 




640 


N=N+1 




650 


A$=A$8<C$ 




660 


PRINT C$i 




670 


GO TO 530 




680 


RETURN 
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Transferring 468 Oscilloscope 
Waveforms from the 4924 to the 4050 



by John Burgess and 
Pat Adamosky 
Tektronix, Inc. 

The GPIB -compatible 4924 makes an ex- 
cellent external storage medium for the 
468 digital oscilloscope. But 468 data is 
output in binary format, so the tapes 
cannot be read directly into the 4050 Ser- 
ies Graphic Computing System from its 
internal tape drive. The solution is to 
read the tape from the 4924 into the 4050 
through the GPIB. The following pro- 
gram will accomplish that task. 

The file header on the 4924 tapes is 
changed from “ASCII LOG,” which is 
generated by the 4924, to “BINARY 
DATA.” The 4050 then does a WBYTE 
@ 64 + D, 110:, which sets up the 4924 to 
send binary data to the 4050. The 4050 
will then display the transferred wave- 
form. 

NOTE: In the program, the primary ad- 
dress of the 4924 is designated as 4. 



188 REM PROGRAM TO RETREIUE AND GRAPH A WAUEF0RM FROM THE 468 AND 4924. 
118 REM THE 468 HAS WRITTEN A HAMEF0RM TO A TAPE IN THE 4924 IN TALK- 
121 REM ONLY AND LISTEN-ONLY RESPECTIUELY. A 4924 IS ALSO NECESSARY 
138 REM HERE TO READ THE TAPE'S DATA. 

148 REN 

198 REM BY: JOHN BURGESS} DATE: 8-19-88 
168 REM LAST MOD: 8-25-88 BY: JH6 

1 78 REM SECTION TO READ BINARY DATA FROM 4924 *-.*—$—* 

1B8 INIT 

198 REM *—*—*—*—* CHANGE HEADER TO "BINARY DATA" 8— I— 8— 8— 8 
288 REM THIS IS SO IT CAN IE READ BACK IN BINARY <T0 FAKE OUT THE 
218 REM "ASCII LOG" THAT THE 4924 WRITES AS ITS HEADER. 

228 PRINT "What file number do you want: ”} 

238 INPUT F 
248 PAGE 

258 PRINT 94,8:8,8,1,1 
268 FIND 84: F 
278 INPUT 84: A8 

288 A9*RIP< "BINARY DATA*, 9, 12) 

298 FIND 84:F 
388 C$*€Hi(13> 

318 A8®A84C8 
328 A8*A88"i" 

338 PRINT 84: AS 

39t HOM MAO THt MtftMUE *—*—*—*—*—$ 

3CO MH ENO OF PMAMLE It OCNOTEO *V A 1*1 (ASCII 3?>. 

fl? Yltfl ft A f ff 

388 REM TELL 4924 TO SEND BINARY DATA FROM THE TAPE <NTA®4, SCG-14) 

398 MBYTE 868,118: 

488 KBYTE A 
418 IF A >98 THEN 738 
428 IF A«37 THEN 478 
438 A8»CNR(A) 

448 PRINT A$} 

458 GO TO 488 

468 REM NOW READ AND DECODE THE NUMBER OF POINTS TO BE SENT 

478 RBYTE A 

4SI P-256TA 

498 RBYTE A 

588 P*P+A 

518 PRINT 

528 PRINT "JJTHERE ARE "}P}" POINTS TO FOLLOW. PRESS <CR> TO PLOT. " 
538 PRINT "PRESS <CR> AFTER PLOT FOR NEXT UAUEFORM FROM TAPE FILE." 

548 INPUT A$ 

558 REM NOW SET UP WINDOW AND PREPARE TO PLOT 

568 WINDOW 1,P, 8,255 

578 REM MOUE TO FIRST POINT 

588 RBYTE A 

598 MOUE 1,A 

688 FOR I*i TO P-2 

618 RBYTE A 

628 DRAW I, A 

638 NEXT I 

648 REM READ AND DISCARD CHECKSUM BYTE 
658 INPUT A* 

668 PAGE 
678 RBYTE A 

688 REN: CHECK FOR IHD-OF-FILE 
698 T-TYP<8> 

788 REM: IF NEXT ITEM TYPE <> 1 THEN NOT EOF 
718 IF TOl THEN 488 

728 REM: IF END OF FILE, NO MORE MFMS, END PROGRAM 
738 RIM CLOSE TAPE FILE i RESET GPIB 

748 PRINT "END-OF-FILE ENCOUNTERED. NO MORE WAME FORMS ON TAPE FILE.” 
758 PRINT 84,2: 

768 WBYTE 963,95: 

778 HOME 
788 END 
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Efficient Array Search 

by Ramon L. Hershman 

Navy Personnel Research and 
Development Center 
San Diego, CA 

Problem: A common prob- 
lem in business or scientific computation 
is locating a target value T in a numeric 
array A. Assume that, at most, one of 
the N members of A is equal to T. We 
seek an efficient scheme either to deter- 
mine that T does not exist or to extract 
its index in A. That is, the search should 
yield, say, S = 0 if no A(I)=T or S = I 
where A(I) is the unique array member 
having the value T. 

Two possible search methods are: 

(A) Conventional Self- terminating Loop: 
Sequentially inspect each array member, 
terminating either when an A(I)=T is 
found or the loop ends without success. 
See lines 110-170 below. 

(B) Scalar/ Array Relational Comparison: 
This scheme exploits the powerful array 
operations of the 4050 Series. Lines 210- 
250 first execute a one-time-only load of 
the integers from 1 to N in the array W. 
Line 310 sets the array X either to 0 or 
to N-l zeros with X(I) = 1 where A(I)=T. 
Line 320 then sets X(I)=I if the target 
exists, and line 330 produces the index in 
S. 

Methods (A) and (B) were inserted in 
FOR/NEXT routines on the 4051 and 
timed with a hand-held digital stopwatch. 
For the self-terminating loop, execution 
time was 16 msec times the number of 
array elements to be searched. If S=0 all 
N elements must be searched, and the 
results in column 2 of the table are ob- 
tained. 

Execution times for Method (B) grow 
with slope —.0035 as N increases and are 
virtually independent of T’s pres- 
ence/absence or its location in A. Results 
appear in column 3 of the table. Thus for 
S=0 the scalar/array comparison scheme 
is approximately 4 times as fast as the 
conventional search for moderate to 
large N and is more than twice as fast 
even for N=5. 

In the absence of other information, if T 
exists we expect S to average N/2. Meth- 
od (B) is then approximately twice as 
fast for moderate to large N. It also has 
the virtue that, for fixed N, its response 
time has nearly zero variance which is 
desirable for interactive applications. 



Users will note that the price of im- 
proved execution time is the added mem- 
ory requirements of the arrays W and X. 
However, if frequent searches of large 
arrays are required, the tradeoff should 
prove attractive. 



100 


REM Method 


A 


110 


8=0 






120 


FOR 1=1 


TO 


N 


130 


IF AUX 


>T 


THEN 160 


140 


8=1 






150 


I=N 






160 


NEXT I 






170 


END 






200 


REM One- 


Tine Load 


210 


DIM WCN) 


,X(N) 


220 


FOR 1=1 


TO 


N 


230 


W<I)=I 






240 


NEXT I 






250 


END 






300 


REM Method 


B 


310 


X=A=T 






320 


X=X*W 






330 


S=SUM(X) 






340 


END 







4051 Execution Times in Seconds 



N 


Method A 
S=0 


Method B 
All S 


5 


0.08 


0.03 


10 


0.16 


0.05 


25 


0.40 


0.10 


50 


0.80 


0.19 


100 


1.60 


0.37 


200 


3.20 


0.71 


400 


6.40 


1.37 
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Variable Format Field Modifier 



by W.C. Wilkinson 

Space Antenna Techniques 
Princeton, NJ 

In many cases an image statement is 
needed which will format the printing of 
a row of values in which the number of 
columns is not known beforehand. That 
is, the number of columns is a variable. 
The format statement, 



Now if MO = 5, statement 300 is 
equivalent to: 



300 PRINT USING M 5(5D. 2D) " ! C9 



The attached program demonstrates 
the use. 




IMAGE NC5D.2D) 



does not allow the field modifier, n, to 
be a variable. 

The following routine provides this capa- 
bility in which MO is the number of col- 
umns. 



100 U$=STR<M0> 

200 U$sUn*<5D.2D) H 
308 PRINT USING U*:C9 



100 REM PROGRAM TO DEMONSTRATE USE OF A VARIABLE 

110 REM AS AN "n" FIELD MODIFIER 

120 PRINT "JENTER NUMBER OF COLUMNS "J 

130 INPUT M0 

140 DIN C9<M0> 

150 FOR 1=1 TO M0 
160 C9< I )=SQR(M0+I > 

170 NEXT I 
180 U$=3TR(M0) 

190 V$=U«c"<5D.2D>" 

208 REM N0TE+ V$ IS NOW M0C5D.2D) AND M0 IS THE "n" MODIFIER 
210 PRINT USING V$:C9 
220 DELETE C9 
230 END 

RUN 



ENTER NUMBER OF COLUMNS 5 



2.45 2.65 2.83 

RUN 


3.00 


3. 16 








ENTER NUMBER OF COLUMNS 8 
3.00 3.16 3.32 

RUN 


3.46 


3.61 


3.74 


3.87 


4.00 


ENTER NUMBER OF COLUMNS 15 

4.00 4.12 4.24 

5.00 5.10 5.20 


4.36 

5.29 


4.47 

5.39 


4.58 

5.48 


4.69 


4.80 



Renumbering a Program 



by Dick Browne 

Tektronix, Inc. 

Philadelphia, PA 

TEKNIQUES Vol. 1 No. 7 described a 
system for renumbering a program so 
that subroutines began on even thou- 
sands. The following system would be 
simpler still. It assumes, like the earlier 
programming tip, that subroutines start 
on lines 230, 380, and 610, and the main 
program starts on line 100. Just use the 
following program: (In the example I use 
UDK #1, but any key will do. 



Pressing the UDK then renumbers 
everything in one step. With this system, 
a program “under construction” can be 
quickly and repeatedly renumbered with- 
out changing starting points of subrou- 
tines. 

Going one step farther, instead of num- 
bering 4, 5, 6, 7, you could number the 
above program 4,8,12,13. Then, by 
pressing the appropriate key, you would 
only renumber the portion of the pro- 
gram you are working on, plus restoring 
following subroutines to their proper 
starting point. 



1 GO TO 190 

4 RENUMBER 1000,10,230 

5 RENUMBER 2000,10,380 

6 RENUMBER 3000,10,610 

7 END 



Also, suppose you are working on the 
subroutine starting at step 2000. After 
the last REN statement, you might want 
to add 



7 PAGE 

8 LIST 2000,2999 

9 END 



to list the part of the program you are 
working on. Or, these steps could be as- 
signed to another UDK. J&E) 
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Displaying Refreshed Questions 



by Charles Otis Sweezey 

Department of Theater & Dance 
Southern Illinois University 
Edwardsville, IL 

There are times when you need ques- 
tions to appear on the CRT while graph- 
ics are being displayed. The questions 
might relate to the graphics, for instance, 
and as they are answered more graphics 
are superimposed. A problem arises 
when you try to write a program to allow 
the questions to appear on the screen 
without having the screen “cleared” and 
the graphics lost when another question 
is needed. 



This program makes use of the “Print 
@32,24:” command which allows a num- 
ber, letter, or symbol to appear on the 
screen without storing on the display. 
When the program is enacted, the com- 
puter prints “Question: #” on the 
screen for a count of 25. At the end the 
“1” disappears. A row of “*” covers up 
the input. When another question is 
needed, “A” is given the value of “2” 
and a subroutine starting at line 500 
causes the “Question: #” to blink with 
the “2” disappearing at the end. 

Using a card to list which numbers relate 
to which questions the operator can run 



his program and answer needed ques- 
tions. Question numbers disappear when 
the question is answered, and that 
answer is covered by “*’s” so that he 
isn’t confused when his next question is 
asked. The program is shown below. 



\m a*i 

lie Gosus see 

200 END 

500 FOR D*1 TO 25 
510 HOME 

520 PRINT “QUESTION : #G“ 
530 MOUE 24,98 
540 PRINT 032,24: | A? " " 
550 NEXT D 
560 0,96 

5?0 PRINT "********“ 

580 MOUE 0,96 
590 INPUT A$ 

600 RETURN 



Plot Rotation on the 4662 Plotter 



by Jerry W. Anderson 
Phillips Petroleum Co. 

Bartlesville, Okla 

Occasionally you may wish to rotate a 
4662 plot from an existing plot program. 
Of special interest would be a 90° rota- 
tion so the long side of the graph paper 
may be used as a “vertical” direction. 
However, you can’t make a rotation 
(other than 180°) by simply using the 
SET buttons on the plotter. But you may 



by inserting the following code in your 
program: 



101 SET DEGREES 

102 PRINT @D j 25: 90 
105 REM D is device 



« 



In addition, change all occurrences of 
the following statements: 



FROM 


TO 


WINDOW Xi,X2,Yl,Y2 


WINDOW Y1,Y2,X1,X2 


VIEWPORT X1,X2,Y1,Y2 


VIEWPORT Y2,Y1,X1,X2 



Also, all graphics commands must have 
their arguments switched. For example, 
MOVE @D:X,Y becomes MOVE @D: 
Y,X and RMOVE @D:0,1 becomes 
RMOVE @D:1,0. These changes may be 
done easily using the Editor ROM. 



Programming Tip Exchange 



51/00-0720/0 

51/00-0902/0 

51/00-1203/0 

51/00-1605/0 



51/00-5506/0 

51/00-6102/0 



Machinery Cost Analysis 
Calendar Routines (7 Day) 
Planimeter 

Shear and Moment Dia- 
grams for Determinate 
Beams 

3-D Function Plot 
Hewlett Packard I/F Pack- 



51/00-8039/0 

51/00-9516/0 

51/00-9527/0 

51/00-9534/0 

plus 

51/00-7004/0 



Tape File Header Expan- 
der 

Advanced Media Graphics 
3-D Transformation 
Q-Plot 

Programming Tips JgjD 



age 

51/00-6109/0 Inventory File System 
51/00-8028/0 Change & List Program 
Variables 

51/00-8032/0 Device Address Adding 
Program 
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4050 Series Applications Library Program Abstracts 



Order 

Documentation and program listings of each program are 
available for a nominal charge. Programs will be put on tape or 
disk for a small recording fee per program plus the charge for the 
tape cartridge or flexible disk. One tape! disk will hold several 
programs. Programs will be recorded on like media only, i.e., 
programs on tape cannot be sent on disk and vice versa unless so 
noted in the abstract. 

(The program material contained herein is supplied without 
warranty or representation of any kind. Tektronix, Inc. assumes 
no responsibility and shall have no liability, consequential or 
otherwise, or any kind arising from the use of this program material 
or any part thereof .) 

Domestic U.S. Prices: 

Documentation and Listing only $25 per program 

Documentation, Listing and Recording Fee 30 per program 
Tape Cartridge 36 per tape 

Flexible Disk 15 per disk 



Contribute 

Contribute one program to the Library and receive three in 
exchange. Send in the membership card from your 4050 Series 
Graphic System Reference Manual to get the details. Or call us 
(503) 685 3618. 

Forms 

Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from your 
local Tektronix Sales Engineer. 

Outside U.S. 

Program contributions or orders outside the U.S. must be processed 
through the local Tektronix sales office or sent to one of the Libraries 
serving your area. See Library Addresses section. 



Applications Library Program Ordering, Distribution to be Simplified 



The 4050-Series Applications Library 
now contains well over 200 user-supplied 
programs. Several hundered copies of 
these programs are requested by Appli- 
cation Library members each month. 

We’ve noted a very distinct pattern in 
these orders — when a member orders 
one program in an application area, he 
usually orders several in that area. 



Using this fact as a guide, we are group- 
ing like-subject programs to fill single 
tapes or disks. We plan to bind together 
the appropriate documentation for each 
program on the tape or disk and offer the 
package at a savings over the price of 
the individual programs. You’ll be able 
to order several programs by ordering 
one part number and save some money. 



We’re in the process of making the con- 
version now. We plan to distribute a new 
Library catalog in mid- summer that will 
detail the packages and the ordering pro- 
cedure. Until then, you may order indi- 
vidual programs as before. 



Correction to 

ABSTRACT #51/00-1602/0 

Title: Interactive Beam Analysis 



Delete line 1295 in File 1 

1295 IF ABS(K2(N)X1.0E-20 THEN 1480 

Delete line 4270 in File 2 

4278 IF ABS<K2(K)Xi.0E-20 THEN 4275 

Change File 1 

Old 1298 PRINT "Enter Weight Mordent of Inertia, WRT2 =" 

New 1297 PRINT "Enter Weight Morient of Inertia about a diameter of disk 
New 1298 PRINT "or element, W*Rad. Gyr. T2< " K$j" ) = "5 
Old 6390 Tl<3,2>-H*I2<m*WT2+K2<N> 

New 6390 Tl<3,2>=H*I2<N)*Wt2/G+K2<N) 

Change File 2 

Old 4272 PRINT "Weight Moment of Inertia <WRt2> about a" 

Old 4273 PRINT "dianeter of disk or elenent = "j 

New 4272 PRINT "Weight Moment of Inertia about a dianeter" 

New 4273 PRINT "of disk or elenent <W*Rad. GyrT2> ..= " 5 

Old 4984 PRINT "Present Weight Moment of Inertia <WRt2) = " j 

New 4984 PRINT "Present Weight Moment of Inertia <W*Rad. Gyr . t2> . . = "• 

Old 4986 PRINT "Enter new Weight Moment of Inertia (WRt2)="j 

New 4986 PRINT "Enter new Weight Moment of Inertia <W*Rad. Gyr . t2 •■= " s 
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ABSTRACT #: 51/00-0604/0 

Title: Loan Schedule for Budgets and 
Taxes 

Author: Joe Flicek 

W.R. Grace & Co. 

New York, NY 
Memory Requirement: 8K 
Statements: 85 
Files: 1 ASCII Program 

This program computes a monthly loan 
schedule with totals for desired budget 
and/or tax periods. The loan schedule 
displays for each month of the period the 
following items: 

interest charge 
principal payment 
total loan payment 
ending loan balance 

The display also includes the beginning 
and ending balances, and the total inter- 



est charges, total principal payments, 
and total loan payments for the period 
covered by the loan schedule. 

User prompted input: 

beginning loan balance for budget/tax 
period 

interest rate of loan as a decimal 
monthly payment on loan 
number of months covered by period 
year of budget/tax period (final two 
digits) 

For loans that extend over more than 
one budget or tax period, the program is 
rerun for each period. The ending loan 
balance of the first budget or tax period 
becomes the beginning loan balance of 
the second period and so forth. 



LOAN SCHEDULE FOR BUDGETS AND TAXES 
USER PROMPTED INPUT FOLLOWS BELOW: 

INPUT BEGINNING LOAN BALANCE 20080 

INPUT INTEREST RATE AS DECIMAL .148 

INPUT MONTHLY LOAN PAYMENT 300 

INPUT NUMBER OF MONTHS FOR PERIOD 12 

INPUT YEAR OF LOAN SCHEDULE (TWO DIGITS) 81 



LOAN SCHEDULE FOR 1981 








Beginn 


ng Loan Balance 


$ 


20000.00 




MONTH 


Interest 


Pr inc i pa 1 


LOAN 


Ending 


-YEAR 


Charge 


Payment 


Payment 


Bal ance 


1-81 


246.67 


53.33 


300.00 


19946.67 


2-81 


246.81 


53.99 


300.00 


19892.68 


3-81 


245.34 


54.66 


300.00 


19838.02 


4-81 


244.67 


55.33 


300.00 


19782.69 


5-81 


243.99 


56.01 


300.00 


19726.67 


6-81 


243.30 


56.70 


300.00 


19669.97 


7-81 


242.60 


57.40 


300.00 


19612.57 


8-81 


241.89 


58.11 


300.00 


19554.45 


9-81 


241.17 


58.83 


300.00 


19495.63 


10-81 


240.45 


59.55 


300.00 


19436.07 


11-81 


239.71 


60.29 


300.00 


19375.78 


12-81 


238.97 


61.03 


300.00 


19314.75 


Total 


2914.75 


685.25 


3600.00 




Ending 


Loan Balance 


$ 19314.75 





ABSTRACT #: 51/00-0605/0 

Title: Mortgage Amortization 
Author: Ronald C. Robinder 
Tektronix, Inc. 

Beaverton, OR 
Memory Requirement: 8K 
Files: 1 ASCII Program 
Statements: 62 

The program will calculate an amortiza- 
tion table for loans such as home mort- 
gages. 

You are prompted for the term of the 
loan, the principal amount, and the inter- 
est rate. 

The program will return with the month- 



ly payment. A pause allows you to inter- 
act for correction, copying, or 
terminating the execution. 

After the pause, the program will display 
the repayment schedule in two year seg- 
ments. A pause between each page al- 
lows you to copy, restart, quit or contin- 
ue. 



HOW LONG (IN YEARS) IS THE LOAN? 12 
HOW MUCH IS BEING BORROWED? 20000 
HOW HIGH IS THE INTEREST (IN JO? 14.8 
YOUR MONTHLY PAYMENT WILL BE $ 297.61 



MONTH 


PRINCIPAL 


INTEREST 




BALANCE 


1 


$ 


50.94 


$ 


246.67 


$ 


19,949.06 


2 


$ 


51.57 


$ 


246.04 


$ 


19,897.49 


3 


$ 


52.21 


$ 


245.40 


$ 


19,845.28 


4 


$ 


52.85 


$ 


244.76 


$ 


19,792.43 


5 


$ 


53.50 


$ 


244.11 


$ 


19,738.93 


6 


$ 


54. 16 


* 


243.45 


$ 


19,684.77 


7 


$ 


54.83 


$ 


242.78 


$ 


19,629.94 


8 


$ 


55.51 


$ 


242. 10 


$ 


19,574.43 


A 


$ 


56. 19 


$ 


241.42 


$ 


19,, 518. 24 


10 


$ 


56.89 


$ 


240.72 


$ 


19', 461. 35 


11 


$ 


57.59 


$ 


240.02 


$ 


19,403.76 


12 


$ 


58.30 


$ 


239.31 


$ 


19,345.46 


13 


$ 


59.02 


$ 


238.59 


* 


19,286.44 


14 


$ 


59.74 


$ 


237.87 


$ 


19,226.70 


15 


$ 


60.48 


$ 


237. 13 


$ 


19, 166.22 


16 


$ 


61.23 


$ 


236.38 


$ 


19, 104.99 


17 


$ 


61.98 


$ 


235.63 


$ 


19,043.01 


18 


$ 


62.75 


$ 


234.86 


* 


18,980.26 


19 


$ 


63.52 


$ 


234.09 


$ 


18,916.74 


20 


$ 


64.30 


$ 


233.31 


$ 


18,852.44 


21 


$ 


65. 10 


$ 


232.51 


% 


18,787.34 


22 


$ 


65.90 


$ 


231.71 


% 


18,721.44 


23 


$ 


66.71 


$ 


230.90 


% 


18,654.73 


24 


$ 


67.53 


$ 


230.08 


$ 


18,587.20 



ABSTRACT#: 51/07-0717/0 

Title: 4907 MIPS — A Management 
Information Processing System 

Author: Jim Dillion 

Tektronix, Inc. 

Santa Clara, CA 
Modified by: L.C. Sheppard 

Sheppard Software 
Company 
Sunnyvale, CA 
Memory Requirement: 32K 
Peripherals: 4907 File Manager 
Statements: 928 
Files: 2 Program 

Requires data disk 



MIPS contains two programs: One for a 
12 period fiscal year and one for a 13 
period fiscal year. The following modifi- 
cations have been made to the 12 period 
program: 

1. Excess code removed to save mem- 
ory. 

2. Individual disk file setup changed to 
a single, large random access file 
where one record is equivalent to 
the old MIPS “file.” 

3 . The fixed number of MIPS files was 
changed to allow from 1 through 300 
with a default of 100. 



4. The 4907 clock may be set. 

5. Any disk unit may be used. 

6. Tabular data may be sent to the 
screen, plotter or printer. 

7. Graphic data may be sent to the 
screen, or plotter. 

8. Prompts for data show a specific 
format if required. 

9. The multicurve graph was altered to 
always put the fiscal year line defini- 
tion in the upper left corner of the 
graph, instead of the lower right or 
upper left. 
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10. This version consistently reflects 
that it handles 12 accounting periods 
instead of 13. 

\ y 1 1 . Prompts for subfiles are more infor- 
mative. 

12. Changes in new disk creation. 

13. MIPS will automatically store itself 
on each new disk. 

14. The program may be sent to user on 
tape (no disk only restriction). 




ABSTRACT #: 51/00-1408/0 

Title: Failure Rate Analysis 
Author: W. E. Price 

Computer Sciences Corp. 
Atlanta, GA 

Memory Requirement: 32K 
Peripherals: Optional — 4662 Plotter 
4642 Printer 

Files: 1 ASCII Program 
Statements: 892 

Failure Rate Analysis determines either a 
subsystem’s or a subassembly’s reliabili- 
^ / ty and total mean time to failure (MTTF) 

during a specified operating time. You 
may choose from three types of analysis: 

Parts Count Prediction 

Part Stress Analysis with Redundant 

Circuits Only 

Part Stress Analysis with Redundant 
Subassemblies and Circuits 

Parts Count Prediction. In the early stages 
of development, parts count prediction 
can be used to produce 4 ‘ball park’ ’ values . 
Data preparation is simple and the opera- 
tions within the program are not complex. 

Part Stress Analysis with Redundant 
Circuits Only. Most of the subassemblies 
are not redundant, therefore, this allows 
you to calculate the failure rates in a mode 
where you can only be concerned with 
redundant circuits. 

Part Stress Analysis with Redundant Sub- 
assemblies and Circuits. When redundant 
subassemblies do exist, this section auto- 
matically calculates the subassembly 
failure rate as it does in Part Stress 
\ Analysis (above) and quantifies it before 
calculating the total subsystem data. 

The program prompts you. for general in- 
put: 



FAILURE RATE ANALYSIS 

Do you want the data printed on the 
SCREEN or the <1> PRINTER? 0 

Enter the nunber of file in which you last stored data: 5 
CHOOSE the TYPE of ANALYSIS: 

0. PART STRESS ANALYSIS with Redundant Circuits only 

1. PARTS COUNT PREDICTION 

2. PART STRESS ANALYSIS with Redundant subassenbly & circuits 

CHOOSE the procedure: 0 

*********** 

PART STRESS ANALYSIS 

How nany subassenbl ies will be calculated? 6 

*** SUBASSEMBLY CALCULATION *** 

Enter the nunber of locations at 
which Subassenbly #1 will exist: 13 

Are theses initial calculations? y 
Subsystem: POWER 

Assenbly'Subassembl y: 7.5 or 20 KUA UPS 
INPUT Operating Hours: 476 

***** 

How nany Circuits/LRU's are there? 25 
Do you need to enter old component values? N 

C i rc u i t# i : Rectifier Leg 
How nany conponents are there? 1 

The Failure Rate for this circuit will be calculated using : 

1. INSPECTION FORMULAS 

2. REDUNDANCY FACTORS 

3. NO REDUNDANCY 

4. REPAIR RATE FORMULAS 

CHOOSE the procedure: 3 
Enter this circuit's quantity: 1 
Is this a <0> MICROELECTRONIC or a 
<1> REGULAR ELECTRONIC DEUICE? 1 

Component #1 

NON MICROELECTRONIC DEUICE 

Enter Q(Quantity): 1 

Enter B0<Base Failure Rate): 4.042 

Enter the nunber of Applicable Parameters for this device: 0 

Enter <1) if you want a plot for this 
circuit's data or enter a (0) if not! 1 
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Number of subassemblies 
Number of locations per subassembly 
. Subsytem name 
Assembly/subassembly name 
Operating hours 
Number of circuits/LRU’s 
Circuit name 

Number of components per circuit 
Procedure to use: 

Inspection formulae 
Redundancy factors 
No redundancy 
Repair rate formula 
Circuit’s quantity 

The component calculation depends 
upon the type of analysis that has been 
selected. Parts Count Prediction deter- 
mines the failure rate using this formula: 

F =X g -tt q * Q (FAILURE RATE) 



^■p = 7 T h‘ 7r o(C iTT R + 2 7T e)V P 

and 

77 L : Learning Factor 

77 0 : Quality Factor 

77 E : Environmental Factor 

77 p : Pin Factor (Nonlinear devices on- 

iy) 

C^ Failure Rate #1 
C 2 : Failure Rate #2 

If data is available for. a partially com- 
plete circuit analysis, the program will 
prompt you for the total failures/million 
hours for the completed components so 
they won’t have to be calculated again. 

The circuit calculation is a collection 
process of all the component values. Af- 
ter each component’s failure rate is cal- 
culated, it is added to a continuous sum 



of the failure rates. When the total fail- 
ure rate is found for the circuit, it is used 
to find that circuit’s reliability and 
MTTF. 

A Reliability vs. Time plot may be had 
for every circuit analysis, and for a Part 
Stress Analysis after the total Subsystem 
data has been determined. A single term 
Poisson Distribution of a reliability may 
be asked for at the end of the analysis 
after the total subassembly or subsystem 
data has been calculated. 

The Parts Count Prediction circuit data 
and subassembly data may be stored on 
tape. Part Stress Analysis subassembly 
data and the total subsystem data may 
also be stored on tape. You may also 
have stored data printed. 



Where, 

X G = Generic Failure Rate 
77 Q = Quality Factor 
Q = Quantity 

Part Stress Analysis determines the 
failure rate for each part from one of 
these equations: 

1. Non Microelectronic Parts 

F= Xbx( 77’s) xQ (FAILURE RATE) 
Where, 

\ B = Base Failure Rate 

77’s = Parameter Values (i.e. Quality 
and Stress Factors) 

Q = Quantity 

2. Microelectronic Parts 

F = X p x Q (FAILURE RATE) 
Where, 

Q = Quantity 



FAILURE RATE CONVERSION AND PROBABILITY OF SUCCESS VALUES 
Based on Part Stress Analysis 
Fai 1 ures/hour= 4.042E-6 
Failures/year* 0.03540792 
Operating Hours: 476 

Probability of Survival /Success: Ps * e-0. 001923992 
P = 0.998077857686 
Mean Tine To FailOO: 247402.276101 
TOTAL CIRCUIT DATA 



Unit Fai 1 ure/ni 11 ion hours* 4.042 
Iten Quantity: 1 
Total Failure Rate* 4.042 
Reliability: 0.998077857686 
Mean Tine To Fail: 247402.276101 
Subsystem POWER 

Assy. /Subassy.: 7.5 or 20 KVA UPS 
Circuit #1: Rectifier Leg 
HON REDUNDANT CIRCUITS 



RELIABILITY vs. TIME 

POWER Laribda* 4.042E-6 Fai 1 ures'hr. 

7.5 or 20 KVA UPS Subassembly Circuit HI: Rectifier Leg 




0 2. 47E+005 4. 95E+005 7.42E+005 9.90E+005 1.24E+006 

TEST TIME (HOURS) 



ABSTRACT #51/00-1607/0 

Title: Beam Analysis II 
Authors: Y.W. Luk 

Larry D. Mitchell 

Virginia Polytechnic Inst. & 

S.U. 

Mechanical Engineering Dept. 
Blacksburg, VA 
Memory Requirement: 32K 
Peripherals: 4051R05 Binary Program 
Loader 

4051R01 Matrix ROM 
Files: 6 Binary Programs 

2 Binary Data (examples) 
Statements: 1,661 



One of the most frequently encountered 
engineering designs is beam because it 
can be used for modeling many struc- 
tures. This program, using Transfer Ma- 
trix Method, provides the following anal- 
yses for an undamped beam system: 

1. Free vibration (eignevalue — 
eigenvector) 

2. Static Response 

3 . Forced dynamic response at a particu- 
lar frequency 

4. Frequency response at a point along 
the beam 



5. Animation of beam motion in the dy- 
namic case 

This program computes and plots the 
curves of deflection, slope, moment and 
shear along the beam for all four analy- 
ses listed above. Beams of uniform or 
variable cross-section can be entered. 
Uniformly or linearly-varied distributed 
loads, concentrated point loads, applied 
moments or combinations of all three 
may be applied to static, forced dynamic 
or frequency response analysis. It also 
allows any combination of pinned, fixed, 
free or guided flexural boundary condi- 
tions, even normally kinematically unsta- 
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ble conditions can be handled if suffi- 
cient internal supports are provided. In- 
span support can be elastic springs 
and/or elastic moment spring. Static in- 
1 ?^ determinary to any order is handled. 

> Modeling for dynamic responses uses 
lumped mass. In the dynamic case, the 
beam motion can be animated in time 
and space. 

All the input data can be stored on the 
tape and recalled for future use. It also 
provides the option of using either En- 
glish or SI units. 

Program limitations 

This program has the following limita- 
tions: 

1. It handles only undamped beam 
system. 

2. It will not handle rigid in-span 
indeterminate supports but they can 
be approximated by assigning a large 
value for the stiffness or rotary stiff- 
ness of the supports, e.g., 1 x 10 10 
lb/in or N/m, or 1 x 10 10 lb-in/rad or 
N-m/rad. 1 x 10 20 seems to be the lim- 
it for a beam having 5 sections before 
numerical difficulty is encountered. 




ABSTRACT #: 51/00-1608/0 

Title: Fatigue Analysis 
Authors: Y.W. Luk 

Graduate Student 
L.D. Mitchell 
Professor 

Virginia Polytechnic Inst. 

& S.U. 

Mechanical Engineering Dept. 
Blacksburg, VA 

Memory Requirement: 22K 
Files: 1 ASCII Program 
Statements: 568 



Machine members are often found to 
have failed under the action of repeated 
or fluctuating stresses, and yet an analy- 
sis reveals that the actual maximum 
stresses were below the yield strength. 
These failures usually are from stresses 
repeated for large number of times. This 
'failure is called a fatigue failure. 



There are many theories that predict the 
fatigue failure. The six most generally 



3. The system must be loaded within the 
elastic range. 

Conclusion 

This interactive computer-aided analysis 
routine is almost unlimited in the com- 
plexity of multi-supported and load beams. 
It is much easier to use than other “can- 
ned” computer programs, especially those 
that are written for a batch environment; 

i.e., computer cards are used as input and 
line printer as output. It has error feed- 



back, structure verification and graphical 
output. All these enable the user to enter 
the data correctly and get the correct 
result in a short time. 

This program is much more powerful 
than Interactive Beam Analysis, applica- 
tion library program #51/00-1602/0; how- 
ever, that program does a couple of 
things that Beam Analysis II doesn’t, 



Drawing of the Bean 






/T 



data: 

For section #1: 



Length of this section.. = 1.0000E+001 in 

Modulus of Elasticity.... 8 3.0000E+007 psi 

Area Monent of Inertia.. .....* 4.7000E+000 int4 

Magnitude of uniformly distributed load.... 8 1 . 0000E+002 lb/in 

Magnitude of Morient. =-l . 0000E+004 lb-in 

Stiffness of Support = 2.8200E+005 lb/ in 



For section #2: 

Length of this section 8 2.0000E+001 in 

Modulus of Elasticity 3.0000E+007 psi 

Area Morient of Inertia........ = 4.7000E+000 int4 



ttt Continue with User Definable Key 



accepted are: modified Goodman frac- 
ture line, modified Goodman yield line, 
Soderberg line, Gerber line, Quadratic 
line, and Kececioglu line. These six fail- 
ure lines are available in the program to 
size failure. Any equivalent stress theo- 
ries are allowed. It can also compute the 
significant endurance limit with the theo- 
retical stress concentration factor and 
other physical and environmental param- 
eters supplied by the user. 



Input Data Required. Units can be either 

in English or SI system. The following 

data are needed: 

1 . Ultimate tensile strength of the 
material, psi or Pa. 

2. Yield strength of the material, psi or 
Pa. 

3 . Significant endurance limit, psi or 
Pa. 

4. Moment causing alternating stress, 
lb-in or N-m. 

5. Moment causing a steady stress, lb- 
in or N-m. 

6. Alternating axial force, lb or N. 

7. Steady axial force, lb or N. 



8. Alternating torque, lb-in or N-m. 

9. Steady torque, lb-in or N-m. 

10. Safety factor, dimensionless. 

11. Lower limit of the dimension, in or 
m. 

12. Upper limit of the dimension, in or 
m. 

If the significant endurance limit is not 
known, the following physical and envi- 
ronmental parameters are required for 
computing the significant endurance lim- 
it. 

13. Type of surface finish. 

14. Reliability, %. 

15. Operating temperature, °F or °C. 

16. Theoretical stress concentration fac- 
tor. 

17. Notch sensitivity factor (optional). 

18. Notch radius (optional), in or m. 

19. Type of material. 

20. Type of loading. 

21. Miscellaneous effect factor (option- 
al). 

22. Shape of cross section. 

23. Endurance limit for R.R. Moore 
rotating beam specimen (optional), 
psi or Pa. 

24. Number of cycles. 
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The following example concerns a rotating shaft of 
circular, machined steel. The input data details its 
parameters. 



The Failure Line on which this chart is based is 
the Modified Goodman Fracture Line. 



Do you want to use English Units? <Y or N)Y 

We will use English Units throughout this routine. 

Please enter the strength of the material to be used. 

Tensile Strength; in psi; Su * 200090 

Yield Strength; in psi; Sy * 150000 

Do you know the Significant Endurance LiMit of the material? <Y or N)N 

This section of the program will calculate the Significant 
Endurance Limit. 

Enter the # for the types of surface finish used, 
tl for polished finish. 

#2 for ground finish. 

#3 for machined or cold drawn. 

#4 for hot rolled. 

#5 for as forged. 

What is the reliability in X?99 

What is the operating temperature in Degree F ? 190 

Do you know the Theoretical Stress Concentration Factor <Kt)?Y 
Theoretical Stress Concentration Factor « 2.5 

Do you know Notch Sensitivity (q)? (Y or N)N 
What is the notch radius in inches?0.02 

Is the material steel? <Y or N)Y 

Is it under bending or axial loading? <Y or N)Y 

Is there any miscellaneous-effect factor? <Y or N)N 
The S-N curve is used for this determination. 

A Log-Log or a Log-Linear S-N curve will be used. 

The finite life region is 0.9*Su 01E3 cycles to Se" <?1E6 cycles. 

What method do you want to use for computing the 
Significant Endurance Limit (Se' - "’)? 

Enter #1 for Log-Log method. 

Enter #2 for Log-Linear method. 

1 

Is the cross section circular? <Y or N)Y 

Do you know the Endurance Limit <Se') for rotating-beam 
specimen? <Y or N)N 

Is the design life infinite? <Y or N>N 
Number of cycles * 500000 

You will now be requested to supply the PARAMETRIC DESIGN STRESS 
EQUATIONS for your design problem. 

You must write these equations in BASIC. Use the following instructions. 
If you are unfamiliar with the development of such equations; 
see user's guide and its appendix for guidance. 

Enter component loads starting with line 6000 incrementing by 10's. 

Use Ml=Moment tausiDg alternating stress <lb-in>. 

Use M2=Noment Gauging a steady stress < lb-in). 

Use Fl=An alternating axial force < 1 to f > ; 

Use F2=A steady axial force Clbf). 

Use Tl=An alternating torque <lb-in). 

Use T2=A steady torque < lb-in). 

Use N=Safety factor. 

Enter the numeric value for each of the variables used in 
your stress equations. 

Do this before you enter your stress equations. 

Enter your stress equations starting with line 6100 
incrementing by lO's. 

Use A 1 =A 1 ternating stress. 

Use A2=Mean stress. 

Use PI=Pi . 

Use D=Basic dimension. N.B.; All dimensions should be give?) in terms of 
D. In case of rectangular component; use proportions. 

After your stress equations are entered; type a numbered return 
statement. Then type run 600. 

EXAMPLE. 

The following equations are in English Unit. 

6000 T2=1200. 

6010 Ml=2400. 

6029 N=l. 8 

6100 Al=N*Ml/<PI*Dt3/32> 

6110 A2=0.866*N*T2/<PI*Dt3/32) 

6120 RETURN 
RUN 600 

6000 T2=1200 
6010 Ml=2400 
6020 N* 1.8 

6100 Al=N*Ml/<PI*D?3/32) 

6110 A2=0.866*N*T2/<PI*Df3/32) 

6120 RETURN 
RUN 600 

Select the fatigue failure line to be used in the design. 

If Modified Goodman Fracture Line; enter MGF 

If Modified Goodman Yield Line; enter MGY 

If Soderberg Line; enter S 

If Gerber Line; enter G 

If Quadratic Line; enter Q 

If Kececioglu Line; enter K 

MGF 

The Failure Line selected is Modified Goodman Fracture Line. 

The failure equation is <Sa/(R2*Se / ' ')Tm + <Rl*Sri/Su)tp = 1. 

where M=1 

where P=1 

where R 1 = 1 

and where R2=l 

Do you wish to change any parameters? <Y or N)N 

The following entries will establish the limits on a Half 
Interval Search for the solution to your problem. 

What is the smallest basic dimension that you wish to try? 

Give your answer in inches. Do not answer 0.0. 0,01 

What is the largest dimension; in inches? 10 



**nm**m**mnm****m«*mmmmmm*m.mm*** 



Tensile Strength. Su 200)080 psi 

Yield Strength, Sy = 150,000 psi 

Significant Endurance Limit, Se' "'6500000 cyc.= 21,395 psi 

Smallest dimension tried = 0.81 inches 

Largest dimension tried = 18.00 inches 

Safety Factor, N... = 1,80 

Moment causing alternating stress, Ml = 2,408.00 lb-in 

Steady torque, T2 = 1,200.00 lb-in 



The following factors are used for comput 
Surface factor <Ka> = 0 

Size and shape factor (Kb> * 0 

Reliability factor <Kc) = 0 

Temperature factor <Kd) =0 

Fatigue Strength Reduction factor <Ke>= 0 
Miscellaneous factor <Kf) = 1 

Endurance Limit for Rotating-beam Specimen (Se')= 
Significant Endurance Limit for infinite life <Se- ■ 



) , 000 psi 

16,960 psi 



The Failure Line selected is Modified Goodman Fracture Line. 

The failure equation is <Sa/'i'R2*Se"">tm + CRl*Sm-'Su>tp= 1. 

where M=1 

where P=1 

where Rl=l 

and where R2=l 

The design dimension is 1.2911 inches 



Do you wish to convert the design dimensionto SI unit?,'Y or N)Y 
The design dimension is 0.0328 m 



Using the same input data, the component is re- 
designed by the other five fatigue failure lines. A 
similar chart is displayed for each Failure Line. 
All six results are listed in the following table for 
comparison . 



Type of Failure Line used Design Diameter 

in m 



Modified Goodman fracture line* 1.2911 0.0328 



Modified Goodman yield line* 
Soderberg line 
Gerber line 
Quadratic line 

Kececioglu line (with b= 1.5) 1 



0.7491 0.0190 
1.2983 0.0330 
1.2696 0.0322 
1.2691 0.0322 
1.2693 0.0322 



*If the user subscribes to the Modified Goodman 
theory, the largest dimension of the two Good- 
man solutions must be selected. 

^his is an arbitrary choice of exponent used for 
this example only. 



Normally, all these analyses are not carried out. 
Only the analysis that corresponds to the user's 
selected theory is computed. But the program pro- 
vides the capability to redesign the component 
using other fatigue failure theories in order that 
the user can choose among alternatives . 

From the results listed in the table, the smallest 
dimension is obtained by modified Goodman yield 
line. This result is not correct for a fatigue design 
because the modified Goodman theory demands that 
one considers the yield line and the fracture line. 
Thus, the largest dimension of the two Goodman 
solutions must be selected. The most conservative 
solution is obtained using Soderberg line. This is 
not always true. It depends upon the location of the 
load line. In this example, the solutions from modi- 
fied Goodman line, Soderberg line, Gerber line, 
Quadratic line, and Kececioglu line are quite close. 
This is true only for this particular example because 
of the load line. Other examples may give more 
significant differences between these theories. 
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ABSTRACT #: 51/00-6125/0 



\ y 



t 



Title: 4050/468 

Author: Craig Bulmer 
Tektronix, Inc. 

Chicago, IL 

Memory Requirement: 32K 
Peripherals: Tektronix 468 Oscilloscope 
Optional: 4662/3 Plotter 
Files: 1 Binary Program 
Statements: 463 

This program will take waveforms from 
the 468 Oscilloscope and display the 
waveforms on the 4050 screen; with 
printed header information of Channel 1, 
2 and/or Add; Volts/Div; Time/Div; Trig- 
ger Point; Max Volts; and Min Volts. 
Waveforms can be saved to tape and re- 
displayed from tape. Output to either 
screen or plotter with reference scope 
grid. Waveforms displayed from tape are 
displayed as dots. 



Cti&UUEL.i 
1 1 RED 



ACQUIREI 

COUPLING DC 

TIME/DIU 200.00 US 

U0LTS/DIU 1.00 U 

TRIGGER PT. 1.79 MS 

MAN U0LTS 4.880 U 

MIN U0LTS 3.960 U 



CHfiUfcJEL_2 

ACQUIRED 

DC 

200.00 US 
5.08 MU 
1.79 MS 
30.800 MU 
28.200 MU 
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ABSTRACT #: 51/00-8015/1 

Title: Flow Diagrammer 

Author: Keith S. Reid-Green 

Education Testing Service 
Princeton, NJ 

Modified by: L.C. Sheppard 

Sheppard Software 
Company 
Sunnyvale, CA 

Memory Requirement: Tape — 16K; 

Disk — 32K 

Peripherals: 4662 Plotter 

Optional — 4907 

File Manager 

Statements: Tape — 917 
Disk — 911 

Files: Tape — 5 ASCII Program 

Requires 62 dedicated files 
Disk — 1 Program 

Flow Diagrammer was modified to run 
on disk with room for 2Q0 diagrams per 
disk. The tape version will remain the 
same (see the abstract in the 4050 Appli- 
cations Library Program Catalog). The 
modification for disk are detailed below: 

A diskette for data storage is required. 

The five programs were combined into 
one for operational speed. 

Any disk unit can be used for the data 
disk. 3 disk files replace 57 tape files. 



The program will let you set the 4907 
clock. It will also format the disk, if re- 
quired, and create and format the data 
files on the disk. 



Several changes were made in the pro- 
gram flow and data storage for increased 
speed and smoothness. 



FLOW DIAGRAMMER: PHASE I 




The maximum amount of “box data” 
was doubled to 2000 characters. 
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ABSTRACT #: 51/00-8018/1 

Title: $ FORMAT 
Author: Bruce Clarkson 

Science Applications, Inc. 
Raleigh, NC 

Revised by: John R. Carter, Sr. 
Tektronix, Inc. 

Santa Clara, CA 
Memory Requirement: 16K 
Peripherals: 4051R06 Text Editor ROM 
or 

A.L. Program #52/07-8047/0 
Printer 

Optional — 4907 File 
Manager 
4924 Tape Drive 

Files: 1 ASCII 
Statements: 390 

^FORMAT provides formatted text out- 
put similar to the University of 
Waterloo’s SCRIPT program for the Sys- 



ABSTRACT #: 52/07-8047/0 

Title: #EDIT.DOS 

Author: John Carter 

Tektronix, Inc. 

Santa Clara, CA 
Memory Requirement: 64K 
Peripherals: Optional — 4907 File 
Manager 

— 4924 Tape Drive 

— 4641 Printer 
Files: 8 Binary Program 

2 Binary Data 

Requires dedicated tape or disk. 
Statements: 1415 

8,000 bytes binary data 

$EDIT.DOS is a 4907 disk oriented 
screen editor for the 4052/54. However it 
may be used with cartridge tape. It cre- 
ates free style, line oriented text enabling 
you to produce reports, manuscripts, 
form letters and so on. Its features are: 

1. Two edit buffers for manipulating 
lines of text. 

2. Complete INPUT and OUTPUT file 
handling for extra long text. 

3. Fast and easy movement of the line 
pointer and character pointer back 
and forth through the text. 

4. FIND and AGAIN which locates 
any string of characters in a 
line. 

5. Five ways to do a REPLACE func- 
tion. 

6. Panic abort from long processes. 

7. Single letter command entry. 

8. Multiple commands per line of input 



tem/360. Commands are imbedded in the 
source text file at the time of creation — 
typically with the TEKTRONIX Editor 
ROM or with Applications Library pro- 
gram $EDIT.DOS (abstract #52/07- 
8047/0). 

$ FORMAT prompts for additional par- 
ameters relative to the page layout at ex- 
ecution time. The commands in the 
source file combined with these parame- 
ters give control over the format of the 
printed document. 

Options include: 

right margin justification (padding with 

blanks) 

page size 

page numbering 

indentation 

spacing 

centering 

and other refinements 



The modifications to the original (Text 
Formatting) allow input from a 4907 File 
Manager in ASCII or Binary, and text 
file creation using $ EDIT. DOS. Output 
may be to any peripheral or device, in- /'■' 
eluding the 4050 screen. 



plus REPEAT. 

9. STATUS report on current editor 
environment. 

10. LIST to any peripheral or device 
with or without line reference num- 
bers. 

1 1 . Exit from program without disturb- 
ing open files or contents of buffers. 
Recover to $EDIT.DOS prompt. 

12. Write over or append to the output 
file. 

The $ EDIT. DOS commands are: 



A-gain 


I-nsert 


R-eplace 


B-ottom 


K-ill 


S-ave 


C-lear 


L-ist 


T-ag 


D-own 


M-acro 


T-op 


F-ind 


O-ld 


U-p 


G-et 


P-ut 


V-erify 


H-elp 


Q-uit 


X-change 



Two special commands, “<” and “>”, 
move the character pointer left or right 



through the current line. Another feature 
uses the vertical bar, “|”, for repeating 
EDIT comands. 

In addition to the keyboard commands 
there are 10 defined function keys for 
STATUS, RECOVERY, VERIFY 
ON/OFF, MERGE LINES, SPLIT 
LINES, PANIC STOP, RULER, 
CHANGE EDIT DELIMITER, RE- 
PEAT LAST EDIT COMMAND, and 
OLD “^FORMAT”. 

A complete HELP message file is includ- 
ed and should be sufficient for using the 
program at 95% efficiency on the first try. 

Program 51/00-8018/0 has been modified 
to run with $ EDIT. DOS to format and 
justify the edited text. It is available 
through the Applications Library. 



*TM15 

ELEF12;ELIN78iEJUSY;ET0P9i 

t 

> 1 :ELEF12;ELIN73; EJUSY; ET0P9; 

2: $EDIT. DOS 

3: EL12; E10; 6 APRIL? 1981EA48164K <4052/4054 only) 

4 : E 1 14;Ea60j <A1 1 optional) 

5: EbS E10; John R. Carter, Sr. Ea48;4907, 4924, 4641, Option 1. 

6 : EA0j E120|Ei?This program creates tree style, line oriented text. 
?:There are twenty-four EDIT commands that enable the user to genera 
te reports, 

8:nanuscripts, forM letters, or whatever. 

9:EsjEijA conpanion formatter program, $F0RMAT.D0S, uses commands in 
bedded in 

10: the text for programmable page layout and text formatting. 
ll:Es>Ei?The key features of this program are the double buffers for 
easy 

12: text manipulation, the direct access help messages for friendly us 
e, and the flexible 

13: use of many of the EDIT commands, to name just a few. 

14: Es; Ei ; This program requires a 4052 or 4054 with 64K of memory. 

15:A 4907 disc drive is optional. 



This text was created by $EDIT .DOS . Later $FORMAT.DOS. was used to produce the output. 

The asterisk is the EDIT prompt. T moves the pointer to the top. LI 5 says to list 15 lines. The “up 
arrow ” shows where the current character point is and the > shows the location of the line pointer. 
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ABSTRACT #: 51/07-8048/0 



Title: Disk-to-Tape Back/Restore Utilities 

Author: John H. Grant 
Tektronix, Inc. 

Seattle, WA 

Memory Requirement: 32K 
Peripherals: 4907 File Manager 
Files: 8 
Statements: 

These utilities allow a user of a 
4050/4907 system to archive his disk files 
onto tape. Specific capability of the utili- 
ties include: 

All file types supported by the 4907 File 
Manager may be archived and restored. 

Multiple volume backups are supported, 
i.e. , in the event that the information on 
the disk exceeds the capacity of a single 
tape, more than one tape will be used. 

Directory editing for total backups is 
supported: files may be omitted from the 
backup process and file names which re- 
quire passwords may (must) be modified 
to include the password. 

Selective backups and restores are also 
supported. 

Automatic hard copies of the archived 
and restored file names may be generat- 
ed. 

The disk-to-disk backup/recovery pro- 
grams were designed specifically for ow- 
ners of a single-drive 4907 who need to 
backup information from their disks. 

However, it may also be used in multi- 
ple-drive configurations. 

The disk-to-tape backup/restore utility 
programs are distributed to customers as 
eight tape files. The first of these is a 
program to transfer the remaining pro- 
grams onto disk, jmh 



Enter the unit nunber of the disk drive 1 
Do you want to backup or restore a disk (g/R)? B 
Selective or total (S'T)? T 

Insert the disk you would like to backup in drive 1 
and press RETURN: 

Insert your disk backup tape (WARNING: any data on 
your tape will be destroyed). When you are ready 

T BCTI IDtJ • 



Do you need to edit the directory (Y/fcl>? Y 



The following functions are available. 

1 Directory listing 

2 Directory listing interrupt 

3 Delete directory i ten 

4 Modify directory i ten 

5 Edit conpl ete 

Please nake your selection via the user definable keys. 
^DIRECTORY 



LIB1/PR0G2 

LIB1/LIB2/PRQG3 

LIB1/LIB2/LIB3/PR0G4 

LIB1/LIB2/LIB3/LIB4/PR0G5 

SYSLIB/BACKUP 

SYSL IB/BACKUP. B01 

SYSLIB/BACKUP. B02 

SYSLIB/BACKUP. B03 

SYSLIB/BACKUP. R01 

SYSLIB/BACKUP. R02 

SYSLIB/BACKUP. R03 

SCRATCHLIB/ASCRAN 

SCRATCHLIB/PR0G1 

SCRATCHLIB/RESTRICTED 

SCRATCHLIB/PROG. TEST 

SCRATCHLIB/eiNSEQl 

SCRATCHLIB/BIHSEQ 

SCRATCHLIB/BINRAN1 

SCRATCHLIB/BINRAN 

SCRATCHLIB/ASCSEQ1 

SCRATCHLIB/ASCSEQ 

crDfiTPUl 



Please nake your selection via the user definable keys. 

^DELETE 

(To terninate DELETE Mode» press RETURN when pronpted for iten.) 
Which iten? PROG 

You want to delete LIB1/PR0G2 (Y/N>? N 
You want to delete LIB1/LIB2/PR0G3 (Y/fcP? N 
You want to delete LIB1/LIB2/LIB3/PR0G4 (Y/fcP? N 
You want to delete LIB1/LIB2/LIB3/LIB4/PR0G5 (Y/tP? N 
You want to delete SCRATCHLIB/PR0G1 (Y/fcP? N 
You want to delete SCRATCHLIB/PROG. TEST (Y/fcP? N 
***PR0G not found*** 

Which iten? PR0G1 

You want to delete SCRATCHLIB/PR0G1 (Y/fcP? Y 
***DELETED*** 

Which iten? 



Please nake your selection via the user definable keys. 

*M0DIFY 

(To terninate MODIFY node, press RETURN when pronpted for iten.) 
Which iten? RESTRICTED 

You want to nodify SCRATCHLIB/RESTRICTED (Y/fcP? Y 

Enter the correct none: SCRATCHLIB/RESTRICTED: PASSWORD 
***M0DIF IED*** 

Which iten? 



Archived files — 

©LIB1/PR0G2 
0LIB1/LIB2/PROG3 
0LIB1/LIB2/LIB3/PROG4 
eLIBl/LIB2/LIB3/LIB4/PR0G5 
©SYSLIB/BACKUP 
©SYSLIB/BACKUP. B01 
©SYSLIB/BACKUP. B02 
©SYSLIB/BACKUP. B03 
©SYSLIB/BACKUP. R01 
©SYSLIB/BACKUP. R02 
©SYSLIB/BACKUP. R03 
©SCRATCHLIB/ASCRAN 
©SCRATCHLIB/RESTRICTED: PASSWORD 
©SCRATCHLIB/PROG. TEST 
©SCRATCHLIB/BINSEQ1 

The end of the tape has been reached. Please insert 
another tape and press RETURN to continue: 
©SCRATCHLIB/BIHSEQ 
©SCRATCHLIB/BINRAN1 

The end of the tape has been reached. Please insert 
another tape and press RETURN to continue: 
©SCRATCHLIB/BINRAN 
©SCRATCHLIB/ASCSEQ1 
©SCRATCHLIB/ASCSEQ 

The end of the tape has been reached. Please insert 
another tape and press RETURN to continue: 
©SCRATCHLIB/ASCRAN1 



Disk backup conpleted. 
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4050 Series Applications Libraries 



Africa, Europe, Middle East 

Contact local sales office 

Australia 

4050 Series Applications Library 
Tektronix Australia Pty. Limited 
Sydney 

80 Waterloo Road 
North Ryde, N.S.W. 2113 



Canada 

4050 Series Applications Library 
Tektronix Canada Ltd. 

P.O. Box 6500 
Barrie, Ontario 
Canada L4M 4V3 

Caribbean, Latin America 
and Far East (excl. Japan) 

IDD Group 
Export Marketing 
Tektronix, Inc. 

P.O. Box 500 
Beaverton, Oregon 97077 
U.S.A. 



Japan 

4050 Series Applications Library 
Sony/Tektronix Corporation 
9-31 Kitashinagawa-5 
Tokyo 141 Japan 

United States 

4050 Series Applications Library 
Tektronix, Inc. 

Group 451 
P.O. Box 500 
Beaverton, Oregon 97077 





•paa;uBjen0 3 §b;soj ujnp){ puB SuipJBAVJoj — pa;sanba)j uoipajao3 ssaappy 




LLQL6 uoftojo ‘uojJ3AB3g 




00S XOH O d 




ISt’ dnoj0 


oni ‘xiNoyjoiai 


AjBjqiq suoi}B3i[ddy 


UOISIAIQ AB|dsI(J UOIJBU1JOJUI 


aivd 


DNI ‘XINOHXM3X 


aovisod s n 


30N3113GX3 Ol C]31UWWOO 


aivd >nn9 


•XjUQJ|>|cU. 






